(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    313356,       7049]
NotebookOptionsPosition[    294256,       6654]
NotebookOutlinePosition[    294931,       6680]
CellTagsIndexPosition[    294850,       6675]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.2", "HistoryData",
  CellTags->"New",ExpressionUUID->"6f81cada-5e93-4a65-b05d-0e1148ed9de6"],
 " | Modified in: ",
 Cell[" 2.1.1", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"07dc14e4-8502-45d8-8308-ab64e18c15a8"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"d4e8ed2d-5c58-4d83-8c75-94234057305d"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"86df0ceb-e2d2-4ddc-aed3-7b6c9b4d18e7"]
}], "History",
 CellChangeTimes->{{3.7621455968388023`*^9, 3.76214559826912*^9}, {
  3.762845765719589*^9, 3.762845765771392*^9}, {3.765792013035652*^9, 
  3.765792020505455*^9}, {3.767431502857853*^9, 3.767431502944645*^9}, {
  3.770568601910247*^9, 3.770568601910316*^9}, {3.780114275101355*^9, 
  3.780114275101482*^9}, {3.782467388383165*^9, 3.7824673887376213`*^9}, {
  3.7882017996336603`*^9, 3.7882018003442183`*^9}},
 CellID->1247902091,ExpressionUUID->"7c0b8d73-847e-41c4-a007-a9c3d39cc812"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"7ac9c7ab-8437-4641-b8e4-1d25fa417b9b"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"05009cf1-4d5c-47b3-93a2-88d0c62d7a3d"],

Cell["MaXrd", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"66b1b861-a67f-4538-88f9-259e2fd83dc7"],

Cell["MaXrd`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"70415e6d-1e7e-4c3b-aa45-19b4100a664c"],

Cell["MaXrd/ref/EmbedStructure", "Categorization",
 CellLabel->"URI",ExpressionUUID->"a5042b8c-a310-4584-bf7e-13bc33fb8d22"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"54e79998-0abb-4b96-bc52-755777fbbb6a"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"75c766df-126b-4a9d-9143-f6075136d7e5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"c33b57b9-d6a0-4113-8ea8-4723a3c0242f"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"64ed7564-911f-464a-9d53-23ec67e167c5"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"5892aa57-8082-4959-bace-f0585cab2f61"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"2e4e12bd-0b71-4537-8e17-d83c7a7bc348"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"e1235d68-10fd-4145-81bd-be9d00cdf744"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"5597601b-58ca-4f67-8c09-738973cf94af"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"ef7d0abc-f355-4169-af9d-47d5bdc3bb80"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"78be910f-634c-4f7b-89dd-15de1b5ebb51"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"8d86a2cb-7cf7-450a-9f69-1c9c85978783"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"577c1c96-52be-4ded-889c-f1e9766a6c18"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"45351c95-0e96-4e7a-9563-c54cebb14a14"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"00c9e3ee-75d7-46c8-a716-2c09b422db00"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"fc32a961-15d8-47f9-9d25-32a24a2d2101"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"017ddfc7-a8c0-4336-8f53-6f9587ede09a"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"5d9132d0-3fa1-449d-8c23-ac9122dd2934"]
}, Closed]],

Cell[CellGroupData[{

Cell["EmbedStructure", "ObjectName",
 CellID->1224892054,ExpressionUUID->"8d809462-b14f-4471-a044-c3afeee94f58"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"57346645-7fe1-475c-8396-9155c13a1004"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["EmbedStructure",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/EmbedStructure"], "[", 
   RowBox[{
    StyleBox["guestUnits", "TI"], ",", 
    StyleBox["targetPositions", "TI"], ",", 
    StyleBox["hostCrystal", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "4f03cdb7-6c18-4cef-b2de-fbbd813e97bd"],
 " \[LineSeparator]embeds ",
 Cell[BoxData[
  StyleBox["guestUnits", "TI"]], "InlineFormula",ExpressionUUID->
  "369a7ce5-de2e-4812-8667-44b2b7a765ea"],
 " at ",
 Cell[BoxData[
  StyleBox["targetPositions", "TI"]], "InlineFormula",ExpressionUUID->
  "aa459d67-6b6e-45db-9f1f-5b166ef9f901"],
 " into ",
 Cell[BoxData[
  StyleBox["hostCrystal", "TI"]], "InlineFormula",ExpressionUUID->
  "da24cf6b-f34f-4ed7-8313-83864606653b"],
 "."
}], "Usage",
 CellChangeTimes->{{3.7609606008550177`*^9, 3.760960689077853*^9}, {
  3.771132264447237*^9, 3.77113228272421*^9}, {3.774170905197009*^9, 
  3.774170912309329*^9}, {3.774180397970368*^9, 3.774180403120838*^9}},
 CellID->982511436,ExpressionUUID->"b20ddc82-c753-40aa-a40d-11532ccf41f1"],

Cell[TextData[{
 "This function mutates ",
 Cell[BoxData[
  StyleBox["hostCrystal", "TI"]], "InlineFormula",ExpressionUUID->
  "53029672-41a4-4758-8e66-915ae78a8bda"],
 ". Use the ",
 Cell[BoxData[
 "\"\<NewLabel\>\""], "InlineFormula",ExpressionUUID->
  "e522f747-d495-423b-917b-b764a0f92d56"],
 " option to create a new structure/crystal instance."
}], "Notes",
 CellChangeTimes->{{3.769495892845478*^9, 3.769495955695993*^9}, {
  3.769496010721603*^9, 3.769496032634316*^9}, {3.773735871576428*^9, 
  3.773735894641816*^9}, {3.7741718352639837`*^9, 3.774171836971079*^9}},
 CellID->924159584,ExpressionUUID->"e56c37d6-d3c0-47a1-a918-537358b15dac"],

Cell[TextData[{
 "In the following, by ",
 Cell[BoxData[
  StyleBox["entity", "TI"]], "InlineFormula",ExpressionUUID->
  "0bc07d55-c955-47e0-98f8-d39639952212"],
 " we mean either the symbol of a chemical element (",
 StyleBox["e.g.",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
 "\"\<Fe\>\""], "InlineFormula",ExpressionUUID->
  "d4c6c7f0-5815-4775-b393-e60acf688b4b"],
 " or ",
 Cell[BoxData[
 "\"\<Au\>\""], "InlineFormula",ExpressionUUID->
  "05b82103-dbd8-4077-80d4-c683e3227831"],
 ") or a key in the ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"f0ecf75b-2d29-44fb-bafb-73be9210bdae"],
 " association (",
 StyleBox["e.g.",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
 "\"\<Diamond\>\""], "InlineFormula",ExpressionUUID->
  "3e16fa67-c56d-4a7d-af42-ea14336f47c6"],
 " or ",
 Cell[BoxData[
 "\"\<LanthanumHexaboride\>\""], "InlineFormula",ExpressionUUID->
  "a02586dc-1953-42c8-9837-0be91225def6"],
 "). The ",
 Cell[BoxData[
  StyleBox["guestUnits", "TI"]], "InlineFormula",ExpressionUUID->
  "6c850845-8e97-404d-91a1-c769e1425233"],
 " can take these forms:"
}], "Notes",
 CellChangeTimes->{{3.76137210946203*^9, 3.7613721196690598`*^9}, 
   3.761381311067094*^9, {3.771132288507956*^9, 3.771132291457774*^9}, {
   3.771133741715109*^9, 3.771133742248661*^9}, {3.771133773869816*^9, 
   3.7711339886965446`*^9}, {3.771134037869012*^9, 3.7711340385998173`*^9}, {
   3.771134069461629*^9, 3.7711341034519997`*^9}},
 CellID->1990679746,ExpressionUUID->"f832c104-3048-4fd9-9e08-d9b3df391b8e"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "067e3a96-4a63-4f15-99f4-9195fdd086b6"], 
    RowBox[{"{", 
     StyleBox["entity", "TI"], "}"}], Cell[
    "a single crystal object or chemical element", "TableText",
     ExpressionUUID->"5a3b79fb-eeb5-4d28-87b1-d1d1cd6a09f9"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "fb5d116c-e8ba-4e1b-a70a-6d44653ec04e"], 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["entity", "TI"], 
       StyleBox["1", "TR"]], ",", " ", 
      SubscriptBox[
       StyleBox["entity", "TI"], 
       StyleBox["2", "TR"]], ",", " ", 
      StyleBox["\[Ellipsis]", "TR"]}], "}"}], Cell[
    "a list of several crystals or elements", "TableText",ExpressionUUID->
     "84c1e814-d40a-4432-b50f-973fa4157ad3"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "bd0ca6b6-c034-4a36-9203-f43017165751"], 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["p", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["p", "TI"], 
         StyleBox["2", "TR"]], ",", 
        StyleBox["\[Ellipsis]", "TR"]}], "}"}], "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["entity", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["entity", "TI"], 
         StyleBox["2", "TR"]], ",", 
        StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "}"}], Cell[
    "a shuffled distribution of such entities", "TableText",ExpressionUUID->
     "7346bc9c-9317-4b67-b797-bdc317415348"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "66782aaa-7917-47e1-a127-adaa9748e2fa"], 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        StyleBox["cond", "TI"], 
        StyleBox["1", "TR"]], "\[Rule]", 
       SubscriptBox[
        StyleBox["entity", "TI"], 
        StyleBox["1", "TR"]]}], ",", 
      RowBox[{
       SubscriptBox[
        StyleBox["cond", "TI"], 
        StyleBox["2", "TR"]], "\[Rule]", 
       SubscriptBox[
        StyleBox["entity", "TI"], 
        StyleBox["2", "TR"]]}], ",", 
      StyleBox["\[Ellipsis]", "TR"]}], "}"}], Cell[TextData[{
     "a list of ",
     Cell[BoxData[
      ButtonBox["Condition",
       BaseStyle->"Link",
       ButtonData->"ref/Condition"]], "InlineFormula",ExpressionUUID->
      "8bc978c7-b0dc-4a2e-a7fb-99b694c11c2d"],
     " rules that constrain the placement of entities"
    }], "TableText",ExpressionUUID->"da6ebcbc-01e7-40c9-8261-39e7af4f2ec3"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.761372531288431*^9, 3.761372537748044*^9}, {
  3.761381181996051*^9, 3.7613813184386387`*^9}, {3.761381430141737*^9, 
  3.761381467217846*^9}, {3.761464251461055*^9, 3.7614642545056553`*^9}, {
  3.7614642996326733`*^9, 3.761464320856666*^9}, {3.7614643808024187`*^9, 
  3.7614644436317453`*^9}, {3.762106978850202*^9, 3.762107032892543*^9}, {
  3.762107068356678*^9, 3.762107068357832*^9}, {3.762107108292617*^9, 
  3.762107108293768*^9}, {3.771132428578301*^9, 3.771132437102482*^9}, {
  3.771132526362241*^9, 3.771132532959099*^9}, {3.771132571744636*^9, 
  3.771132581988447*^9}, {3.771134289851308*^9, 3.7711343378877993`*^9}, {
  3.771134477941074*^9, 3.771134490051903*^9}, {3.787907375113995*^9, 
  3.7879073949723167`*^9}},
 CellID->2028755750,ExpressionUUID->"009951d8-bcfb-4a8f-89f4-6861a973a57f"],

Cell[TextData[{
 "When using a list of ",
 Cell[BoxData[
  ButtonBox["Condition",
   BaseStyle->"Link",
   ButtonData->"ref/Condition"]], "InlineFormula",ExpressionUUID->
  "970a26f1-29ac-44ff-82f7-d5880313f1d0"],
 "s, each coordinate in ",
 Cell[BoxData[
  StyleBox["targetPosition", "TI"]], "InlineFormula",ExpressionUUID->
  "bd44f2c6-83f1-4fea-a37e-b02c48f05ad7"],
 " will pass through the conditions in order. If the coordinate tuple does \
not match any of them, the last entry in ",
 Cell[BoxData[
  StyleBox["guestUnits", "TI"]], "InlineFormula",ExpressionUUID->
  "47dacfef-cb56-4a1b-8ceb-7261d5540d3e"],
 " will be used as default."
}], "Notes",
 CellChangeTimes->{{3.76214517907738*^9, 3.762145197078642*^9}, {
  3.762145256517249*^9, 3.762145259493251*^9}, {3.7621459573585777`*^9, 
  3.762146008996066*^9}, {3.762146050883209*^9, 3.762146080808454*^9}, {
  3.767430197626252*^9, 3.767430204366482*^9}, {3.771134345702978*^9, 
  3.77113437468391*^9}},
 CellID->37393551,ExpressionUUID->"2c9bb53f-71ac-4dc6-9f3c-379f01a1a14f"],

Cell[TextData[{
 "The special label ",
 Cell[BoxData[
 "\"\<Void\>\""], "InlineFormula",ExpressionUUID->
  "3596c09e-c89b-43c4-851b-c59ce5b879dc"],
 " can be used to signal a vacancy/absence of embedding."
}], "Notes",
 CellChangeTimes->{{3.7657920502974453`*^9, 3.765792063791086*^9}, {
  3.765792100360701*^9, 3.765792136568091*^9}, {3.76743016891057*^9, 
  3.7674301739392223`*^9}},
 CellID->1605903337,ExpressionUUID->"e7237025-1796-4b6a-bf00-f61675f2c279"],

Cell[TextData[{
 "Chemical element symbols can also be used in ",
 Cell[BoxData[
  StyleBox["guestUnits", "TI"]], "InlineFormula",ExpressionUUID->
  "dd40dbaa-d713-4ab1-b573-8feb724f5999"],
 ", and will correspond to insertion of single atoms of the given type."
}], "Notes",
 CellChangeTimes->{{3.7674302497243958`*^9, 3.7674303308102503`*^9}, {
   3.767430787677513*^9, 3.767430825492197*^9}, {3.76743098753762*^9, 
   3.767430987776102*^9}, 3.767431022104636*^9, {3.7711343490392447`*^9, 
   3.7711343503562603`*^9}},
 CellID->178674951,ExpressionUUID->"a0b4b499-e2e5-4f91-a5c7-eb695c756f23"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["targetPosition", "TI"]], "InlineFormula",ExpressionUUID->
  "ab8e5a34-0897-4acc-9b80-4d04c6faadde"],
 " should be a list of three-dimensional coordinate tuples."
}], "Notes",
 CellChangeTimes->{{3.762145279112981*^9, 3.762145320878582*^9}, {
  3.762145377955971*^9, 3.7621454149873867`*^9}, {3.762145493617466*^9, 
  3.762145494031918*^9}},
 CellID->255599014,ExpressionUUID->"dbcb962a-879f-4ac7-a7b5-1fb41aa174e6"],

Cell["Options:", "Notes",
 CellChangeTimes->{{3.761249440678257*^9, 3.76124944161147*^9}},
 CellID->1067943069,ExpressionUUID->"dc49ee08-59fb-4339-a216-d82dd6deeaed"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "e736ed51-f0b9-47e4-9cef-6208eb2799ec"], "\"\<DataFile\>\"", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
      "$MaXrdPath", ",", "\"\<UserData\>\"", ",", "\"\<CrystalData.m\>\""}], 
      "}"}], "]"}], Cell[
    "path to data file", "TableText",ExpressionUUID->
     "ad46a247-f1db-448a-9c30-750e12533837"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "4dc7781c-5ff3-49e1-bbcc-5a41d9f5c4bb"], "\"\<Distortions\>\"", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], Cell[TextData[{
     "set shift amplitudes [",
     Cell[BoxData[
      FormBox["\[CapitalARing]", TraditionalForm]], "InlineMath",
      ExpressionUUID->"4de78d9a-67b5-45b9-b491-2650d3b64df7"],
     "] (constant or range)"
    }], "TableText",ExpressionUUID->"48f43bb4-9c18-4e91-aad8-9a72abaa2040"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "7005cd9a-f249-4df1-8c1e-c2a597c81478"], "\"\<DistortionType\>\"", 
    "\"\<Cartesian\>\"", Cell[TextData[{
     "interpret distortions in terms of \[ARing]ngstr\[ODoubleDot]ms in the x\
\[Dash]y\[Dash]z directions (",
     StyleBox["\"Cartesian\"", "InlineCode"],
     ") or fractions of host unit cell in a\[Dash]b\[Dash]c directions (",
     StyleBox["\"Crystallographic\"", "InlineCode"],
     ")"
    }], "TableText",ExpressionUUID->"897a3928-3d7b-4f93-a8d1-b6a0bf622ed8"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "6ccc0d98-c832-4101-a82c-d30cc1185f3b"], "\"\<MatchHostSize\>\"", 
    ButtonBox["True",
     BaseStyle->"Link"], Cell[TextData[{
     "expand ",
     Cell[BoxData[
      StyleBox["targetPositions", "TI"]], "InlineFormula",ExpressionUUID->
      "1f846f70-f23a-4548-8754-ebf14b0d55a3"],
     " to match host structure size"
    }], "TableText",ExpressionUUID->"06e57c4e-1520-4c60-b762-9c885ffed72c"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "02acbfa3-ab72-449e-96be-3fd690cfa7ff"], "\"\<NewLabel\>\"", "\"\<\>\"", 
    Cell[TextData[{
     "label to use for the new structure (will overwrite ",
     Cell[BoxData[
      StyleBox["hostCrystal", "TI"]], "InlineFormula",ExpressionUUID->
      "04b27f43-c376-4b72-bf65-65be53d1e1e6"],
     " by default)"
    }], "TableText",ExpressionUUID->"5cec8676-3736-4484-85c8-98710374d373"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "a1e9f43c-a938-4906-a449-017997e83d24"], "\"\<OverlapPrecedence\>\"", 
    "\"\<\>\"", Cell[TextData[{
     "which atom group to keep if there are overlapping atoms (",
     Cell[BoxData[
     "\"\<Host\>\""], "InlineFormula",ExpressionUUID->
      "877a477c-19c2-4c03-9ebb-b6f33706c6c5"],
     " or ",
     Cell[BoxData[
     "\"\<Guest\>\""], "InlineFormula",ExpressionUUID->
      "ef181969-0525-43e4-82a5-73be4870d127"],
     ")"
    }], "TableText",ExpressionUUID->"ed414fff-6074-4498-a072-69f3e8b0027f"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "315add38-d076-4dc2-ade1-2c58fee37c3f"], "\"\<OverlapRadius\>\"", "1.0", 
    Cell[TextData[{
     "threshold [",
     Cell[BoxData[
      FormBox["\[CapitalARing]", TraditionalForm]], "InlineMath",
      ExpressionUUID->"a9cb318e-83b0-4d53-9424-6fb1927ecdb9"],
     "] for asserting overlap"
    }], "TableText",ExpressionUUID->"638147d5-410e-4220-abaf-3f10a7cd260e"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "4f3f390b-7dba-48d6-8d2c-9fd109f96790"], "\"\<ShowProgess\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"ref/False"], Cell[
    "whether to display a progress bar", "TableText",ExpressionUUID->
     "c17b2a95-4f2d-4645-9382-39f368bbdb3d"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "ee9135fa-fbb9-4168-ade8-2a5462dec6af"], "\"\<TrimBoundary\>\"", 
    "\"\<None\>\"", Cell["\<\
procedure to remove atoms at our outside boundaries after embedding\
\>", "TableText",ExpressionUUID->"e796b855-09f7-41a7-8e6b-ffdc83e0e64d"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.762688666959156*^9, 3.762688666960783*^9}, {
   3.7627850380358143`*^9, 3.7627850508223267`*^9}, {3.762785084400494*^9, 
   3.7627851112398977`*^9}, {3.7628457710203733`*^9, 3.762845855821845*^9}, {
   3.762872211112082*^9, 3.762872211742958*^9}, {3.762872333599416*^9, 
   3.76287233359944*^9}, {3.762931520672982*^9, 3.762931536972081*^9}, {
   3.762931616513981*^9, 3.762931621049575*^9}, {3.763217378621887*^9, 
   3.763217449166645*^9}, {3.763217495350779*^9, 3.7632176543857517`*^9}, {
   3.770568901366194*^9, 3.770568915453576*^9}, {3.770568981677362*^9, 
   3.770568988723249*^9}, {3.7711346232637978`*^9, 3.771134623461978*^9}, {
   3.771147356809196*^9, 3.7711473573198433`*^9}, 3.7712366481505938`*^9, {
   3.7712386574883327`*^9, 3.771238675766343*^9}, {3.774170940940249*^9, 
   3.774171004670596*^9}, {3.7741805267949677`*^9, 3.774180542166831*^9}, {
   3.7824722438617153`*^9, 3.782472253242627*^9}, {3.7824725046371393`*^9, 
   3.782472637417309*^9}, {3.782472680523672*^9, 3.782472693585251*^9}, 
   3.784880093591484*^9, 3.787921786216198*^9},
 CellID->1917123225,ExpressionUUID->"b81779e7-f436-43b0-9d91-12f52943eceb"],

Cell[TextData[{
 "Rotation options (see also the tutorial ",
 StyleBox[ButtonBox["Using the rotation options",
  BaseStyle->"Link",
  ButtonData->"paclet:MaXrd/tutorial/UsingRotationMaps"],
  FontSlant->"Italic"],
 "):"
}], "Notes",
 CellChangeTimes->{{3.784879750250545*^9, 3.7848797525882072`*^9}, {
  3.784879812330681*^9, 3.7848799733642893`*^9}},
 CellID->956015342,ExpressionUUID->"092b8794-2b6f-4d46-b898-9a29ff0e1301"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "8f80d15e-b707-4ee3-ae70-f17f4808e6e6"], 
    "\"\<RotationAnchorReference\>\"", "\"\<Unit\>\"", Cell[
    "which type of point to perform rotation about", "TableText",
     ExpressionUUID->"d742cc8b-e705-4b92-9a19-1d9a4e914307"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b342003f-fa00-42a4-8a21-04d6202bcfaa"], "\"\<RotationAnchorShift\>\"", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], Cell[
    "translation of the anchor point", "TableText",ExpressionUUID->
     "9c085d38-fca4-40a6-9191-a06a60bbc4f0"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "a8270ad4-df0c-4403-b0f2-952583da22fa"], "\"\<RotationAxes\>\"", 
    RowBox[{
     ButtonBox["IdentityMatrix",
      BaseStyle->"Link",
      ButtonData->"paclet:ref/IdentityMatrix"], "[", "3", "]"}], Cell[
    "three vectors defining the rotation axes", "TableText",ExpressionUUID->
     "c1002fa5-f1e6-41f8-9b48-8be9d77d71b1"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "4bc199cf-9e12-4304-8452-cfb3fcc1aee3"], "\"\<Rotations\>\"", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], Cell[TextData[{
     "set rotation angles [",
     Cell[BoxData[
      FormBox["\[Degree]", TraditionalForm]], "InlineMath",ExpressionUUID->
      "4349848a-2a75-429b-be95-b118ea563a81"],
     "] (constant or range)"
    }], "TableText",ExpressionUUID->"f8456338-5303-42ad-b17f-54833b8519c2"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.762688666959156*^9, 3.762688666960783*^9}, {
   3.7627850380358143`*^9, 3.7627850508223267`*^9}, {3.762785084400494*^9, 
   3.7627851112398977`*^9}, {3.7628457710203733`*^9, 3.762845855821845*^9}, {
   3.762872211112082*^9, 3.762872211742958*^9}, {3.762872333599416*^9, 
   3.76287233359944*^9}, {3.762931520672982*^9, 3.762931536972081*^9}, {
   3.762931616513981*^9, 3.762931621049575*^9}, {3.763217378621887*^9, 
   3.763217449166645*^9}, {3.763217495350779*^9, 3.7632176543857517`*^9}, {
   3.770568901366194*^9, 3.770568915453576*^9}, {3.770568981677362*^9, 
   3.770568988723249*^9}, {3.7711346232637978`*^9, 3.771134623461978*^9}, {
   3.771147356809196*^9, 3.7711473573198433`*^9}, 3.7712366481505938`*^9, {
   3.7712386574883327`*^9, 3.771238675766343*^9}, {3.774170940940249*^9, 
   3.774171004670596*^9}, {3.7741805267949677`*^9, 3.774180542166831*^9}, {
   3.7824722438617153`*^9, 3.782472253242627*^9}, {3.7824725046371393`*^9, 
   3.782472637417309*^9}, {3.782472680523672*^9, 3.782472693585251*^9}, 
   3.784880038107851*^9},
 CellID->1566765895,ExpressionUUID->"59885100-5774-4214-a299-385b10e81cf8"],

Cell[TextData[{
 Cell[BoxData[
 "\"\<Distortions\>\""], "InlineFormula",ExpressionUUID->
  "f54ddb41-9c30-4540-aaf4-c40f838a90c1"],
 " should be a list of three entries, each either being a number describing a \
constant shift or a pair of numbers describing a minimum\[Dash]maximum range \
for the shift. Each time a unit is to be placed at a targeted position, \
either the constant shift or a pseudorandom number in the given range is \
added to its position. The input numbers are assumed to be in either \
\[ARing]ngstr\[ODoubleDot]ms or fractional coordinates of the ",
 Cell[BoxData[
  StyleBox["hostCrystal", "TI"]], "InlineFormula",ExpressionUUID->
  "b7206d5a-f323-4445-8308-709e6553f770"],
 "'s unit cell (see the ",
 Cell[BoxData[
 "\"\<DistortionType\>\""], "InlineFormula",ExpressionUUID->
  "c2774aad-7243-4f74-9c87-3a92642e5cd4"],
 " option).\[LineSeparator]",
 Cell[BoxData[
 "\"\<Rotations\>\""], "InlineFormula",ExpressionUUID->
  "ccf0153e-292f-4cda-b242-f540d5b9cd86"],
 " works analogously, but corresponds to a rotation transformation. The input \
is then assumed to describe a rotation about the axes specified by ",
 Cell[BoxData[
 "\"\<RotationAxes\>\""], "InlineFormula",ExpressionUUID->
  "544cdfd6-5427-4c17-a5f2-116224ba2102"],
 " option. Values are assumed to be in the unit of radians."
}], "Notes",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQnffuetIhjjeOh2X6akB0mUN8A4g+dkthGoiuMf4x
E0Rvehg6G0Sf1r+S+hFIr+vTTwPRASsMSkF0g9l2MH3hwxZxfs43jgf53sqA
6IiMW4ogepPOPhUQrVNyVRNMm4bqguhJ94SMQLRC4kMLED3HfIMNiN5dFxoC
otX0iqJBtMbSthgQzRHp8VkaSLedjQHT/yz+MMoA6bDHEkwgWlCz6IcFkH62
XvIPiNaMjmW0BNLht9vBtAZT4YojQFqi+uBqEG3y3GcTiJZr/bMZRH+5eGU7
iH7nU30ARD+znmB1T+KNo93Pp2B66Trp+Fa9N44GGvK5IBoACbqQIQ==
  "],
 CellID->128330510,ExpressionUUID->"213cace6-0905-492e-891a-f6248a6f3e25"],

Cell[TextData[{
 Cell[BoxData[
 "\"\<Distortions\>\""], "InlineFormula",ExpressionUUID->
  "51a54a5a-156d-4d6d-a4d3-200f1e758eb7"],
 " and ",
 Cell[BoxData[
 "\"\<Rotations\>\""], "InlineFormula",ExpressionUUID->
  "6e74d3f5-09f6-4578-8a4a-e64ac24027e0"],
 " input can be mixed numbers and pairs of numbers, or a list of rules where \
conditions on coordinates point to such numbers or pairs of numbers. If no \
conditions match a given coordinate tuple no distortion/rotation is \
performed. Some examples:"
}], "Notes",
 CellChangeTimes->{{3.7628463836457043`*^9, 3.762846401007717*^9}, {
  3.762846440444607*^9, 3.762846457293769*^9}, {3.7629273812131977`*^9, 
  3.76292740497885*^9}, {3.762928882575747*^9, 3.762928893517684*^9}, {
  3.762928929381062*^9, 3.762928937436501*^9}, {3.76292995734501*^9, 
  3.762929992576076*^9}, {3.7629300427611217`*^9, 3.7629300553025913`*^9}, {
  3.763218004170937*^9, 3.763218007406592*^9}},
 CellID->323180187,ExpressionUUID->"bba72225-cb61-40da-997a-5c82884f46f5"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "f87e5605-f41b-4302-98b5-e3de1cc7fed2"], 
    RowBox[{"\"\<Distortions\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], ",", "3"}], "}"}]}], Cell[TextData[{
     "distorts each embedded structure by a random amount between ",
     Cell[BoxData[
      FormBox[
       RowBox[{"2", " ", "\[Dash]", 
        RowBox[{"5", "\[CapitalARing]"}]}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"ac3aee0e-cf3b-4d12-928b-584892464130"],
     " in the ",
     Cell[BoxData[
      FormBox["y", TraditionalForm]], "InlineMath",ExpressionUUID->
      "fe4b724c-90c1-47dd-8789-342207052014"],
     "-direction and a constant amount by ",
     Cell[BoxData[
      FormBox[
       RowBox[{"3", "\[CapitalARing]"}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"898d5638-c7a5-49f5-8545-de71a93fa013"],
     " in the ",
     Cell[BoxData[
      FormBox["z", TraditionalForm]], "InlineMath",ExpressionUUID->
      "73788ea1-c2a3-4650-a180-93d7601e9b5e"],
     "-direction."
    }], "TableText",ExpressionUUID->"3a39ece1-5f28-4c63-9b43-f6896573523a"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "818ff44c-da86-47ce-891e-817d5cce091d"], 
    RowBox[{"\"\<Rotations\>\"", "\[Rule]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
        RowBox[{"y", ">", "2"}]}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"90", "\[Degree]"}], ",", "0", ",", 
         RowBox[{"25", "\[Degree]"}]}], "}"}]}], "\[IndentingNewLine]", 
      "}"}]}], Cell[TextData[{
     "rotates all embedded structures placed at a position such that ",
     Cell[BoxData[
      FormBox[
       RowBox[{"y", ">", "2"}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"a7266459-7ef6-4d22-9d8f-6133841d8130"],
     " by ",
     Cell[BoxData[
      FormBox[
       RowBox[{"90", "\[Degree]"}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"5be4d28b-988e-464d-9ee1-78224cf63cee"],
     " about the ",
     Cell[BoxData[
      FormBox["x", TraditionalForm]], "InlineMath",ExpressionUUID->
      "c94f4465-f4bc-45e0-af50-428c64b09d18"],
     "-axis and ",
     Cell[BoxData[
      FormBox[
       RowBox[{"25", "\[Degree]"}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"7c3b9ce7-3efc-4189-9948-cd2d08171996"],
     " about the ",
     Cell[BoxData[
      FormBox["z", TraditionalForm]], "InlineMath",ExpressionUUID->
      "0dd5e146-9173-4af3-8242-3964f9f95d9e"],
     "-axis."
    }], "TableText",ExpressionUUID->"43aa24e1-d775-4d3f-a634-1bb49e6e0b98"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.7632180149438887`*^9, 3.763218370920568*^9}, {
  3.7657922357790327`*^9, 3.7657922366107893`*^9}, {3.7824710455855093`*^9, 
  3.782471054549288*^9}},
 CellID->1854789889,ExpressionUUID->"8080f1fb-5bc5-47b5-b585-0efd9aeb84b6"],

Cell["\<\
When using conditions, each coordinate that is to be tested will fall through \
the list of conditions until the first match occurs. If no condition match, \
the rotation/distortion for that input will be zero.\
\>", "Notes",
 CellChangeTimes->{{3.763218386597768*^9, 3.763218404356979*^9}, {
  3.763218465395952*^9, 3.763218661798962*^9}},
 CellID->700200527,ExpressionUUID->"a3996063-70cf-4972-9391-6d714992932b"],

Cell[TextData[{
 "The following settings are available for ",
 Cell[BoxData[
 "\"\<TrimBoundary\>\""], "InlineFormula",ExpressionUUID->
  "fdd57e56-ecb5-43b9-a5ee-bb8f56b50494"],
 ":"
}], "Notes",
 CellChangeTimes->{{3.762623906223136*^9, 3.76262392291604*^9}, {
  3.7626240500597897`*^9, 3.762624083202972*^9}, {3.7626241222499723`*^9, 
  3.7626241241540527`*^9}},
 CellID->633941708,ExpressionUUID->"e7a3e2f0-7259-4709-9adc-bce3a9dc8355"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "aae3a594-38f6-49f2-bcf3-ed2ced4a645a"], "\"\<Box\>\"", Cell["\<\
deletes all atoms with any coordinate being negative or larger than the host \
structure size \
\>", "TableText",ExpressionUUID->"9f71af53-c152-4488-95c1-f57f38cac47c"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "4eb2b845-f878-48ee-8917-d70c0feb5c9c"], "\"\<None\>\"", Cell[
    "no filtering is performed", "TableText",ExpressionUUID->
     "a946df37-583f-44c0-a08f-42f6dd741d94"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "058b3be1-ec1c-4b03-aa13-50ef42949822"], "\"\<OuterEdges\>\"", Cell[
    TextData[{
     "deletes all atoms with any ",
     Cell[BoxData[
      FormBox[
       RowBox[{"(", 
        RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"3bfba78f-cbe2-4e77-81d3-4228e8e0184f"],
     " being negative or larger than the host structure size"
    }], "TableText",ExpressionUUID->"a2b8aaf5-df93-4d37-88b3-2f1558051a95"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.7626239343598623`*^9, 3.762623963823794*^9}, {
  3.762624000559404*^9, 3.762624037778633*^9}, {3.762624089875923*^9, 
  3.762624093501464*^9}, {3.762624128902149*^9, 3.7626241926588173`*^9}, {
  3.762624229210433*^9, 3.7626242659267893`*^9}},
 CellID->837998243,ExpressionUUID->"ecdd12b6-2bf0-4b4b-b677-f3735c561a26"],

Cell[TextData[{
 "The default action of ",
 Cell[BoxData[
 "\"\<OverlapPrecedence\>\""], "InlineFormula",ExpressionUUID->
  "eae624f8-52dd-4b36-8960-b50b0f64a0cf"],
 " is to ",
 StyleBox["not",
  FontSlant->"Italic"],
 " check for any overlapping atoms. Checks are only performed if it is set to \
either ",
 Cell[BoxData[
 "\"\<Host\>\""], "InlineFormula",ExpressionUUID->
  "f30f3239-0ca9-4194-82ed-f18b987b0b1d"],
 " or ",
 Cell[BoxData[
 "\"\<Guest\>\""], "InlineFormula",ExpressionUUID->
  "7f63a7ef-c6b7-49d0-ad33-430522eeea81"],
 "."
}], "Notes",
 CellChangeTimes->{{3.771238710119948*^9, 3.7712388214798098`*^9}},
 CellID->1920663168,ExpressionUUID->"4f8c94ba-a19e-41d4-8e40-20044351c54c"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["Chop",
   BaseStyle->"Link",
   ButtonData->"ref/Chop"]], "InlineFormula",ExpressionUUID->
  "dfaaab08-685d-4852-91ea-b46f2336524d"],
 " is applied to all coordinates with a tolerance of ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", 
    RowBox[{"-", "6"}]], TraditionalForm]], "InlineMath",ExpressionUUID->
  "378ad0f2-6f6f-4f6f-825f-e34bfdc8d589"],
 "."
}], "Notes",
 CellChangeTimes->{{3.7637970780544453`*^9, 3.763797134801086*^9}},
 CellID->991443164,ExpressionUUID->"cd2b36d9-4f5d-4eb1-a41f-c7d4268c580a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"1ae9a03b-e6e7-4361-a1f1-cdda1e960fe0"],

Cell[TextData[ButtonBox["Using the rotation options",
 BaseStyle->"Link",
 ButtonData->"paclet:MaXrd/tutorial/UsingRotationMaps"]], "Tutorials",
 CellChangeTimes->{{3.782113438247541*^9, 3.782113454003908*^9}},
 CellID->131883350,ExpressionUUID->"e4dedb38-4066-4651-bf50-d416769e6965"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"625c6ae4-72cf-4e8c-a4aa-981d87100398"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"b6694a15-c6c8-41d1-8d09-a1319070657e"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"0e644848-aa19-407e-900b-96367e692601"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"22fac52e-2aa4-44e9-9c13-7d36b9e99b81"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"65391dbb-264c-42aa-b546-048e6a49f414"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"34c294de-14a3-4b9c-a788-503d95e4f9c4"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"ed545e0b-8d38-46bb-8d7b-28d9ed04f313"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["CrystalPlot",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalPlot"]], "InlineFormula",
  ExpressionUUID->"4c96c0d8-b6e8-4ea5-a9f5-650d210e216e"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExpandCrystal",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ExpandCrystal"]], "InlineFormula",
  ExpressionUUID->"15a6aa90-4755-4eb5-bcf8-2f55689634db"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["DistortStructure",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/DistortStructure"]], "InlineFormula",
  ExpressionUUID->"3cd9f030-bc06-470e-a644-cae89cfd1da5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SynthesiseStructure",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SynthesiseStructure"]], "InlineFormula",
  ExpressionUUID->"fab9e86b-9a35-4fad-9c7a-2b243761bb92"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SimulateDiffractionPattern",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SimulateDiffractionPattern"]], 
  "InlineFormula",ExpressionUUID->"77b81528-eee5-4327-986c-e12a9a1e17ef"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"f5dfb946-fa62-4543-a101-a55e6644ce13"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetLatticeParameters",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetLatticeParameters"]], "InlineFormula",
  ExpressionUUID->"2ebbbdd3-0bd0-4ad6-8aaa-490fdc1324a3"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"bfc059fd-424c-403c-86ef-09e875852549"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"9e8942c6-4193-46f9-9159-d8461a9794a5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["CrystalFormulaUnits",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalFormulaUnits"]], "InlineFormula",
  ExpressionUUID->"39a28fb2-a72d-4348-baf4-09e4c2bcc26a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ExportCrystalData"]], "InlineFormula",
  ExpressionUUID->"389d3fb0-71c6-45e6-9a70-810fe86cf77b"]
}], "SeeAlso",
 CellChangeTimes->{{3.761249381359728*^9, 3.761249417547997*^9}, {
  3.761461862045011*^9, 3.761461865043229*^9}, {3.763797255823867*^9, 
  3.7637972580863*^9}, {3.769496259523974*^9, 3.769496264116939*^9}, {
  3.77123835096415*^9, 3.771238355868333*^9}, {3.7850578449593267`*^9, 
  3.785057844959711*^9}},
 CellID->929782353,ExpressionUUID->"0fa78ba9-a363-42f0-847e-181c0823db7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"e24f6836-7567-4bd5-bba1-894bb76492eb"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"93dec88b-b763-4bf2-8b55-5ce5871c8147"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"e6f2b416-f9da-442b-83b5-d0ef55a0c67c"],

Cell[TextData[{
 "In this example we embed a single iron atom into ",
 StyleBox["Ice",
  FontSlant->"Italic"],
 ". Let use place it at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"0.5", ",", "0.5", ",", "0.5"}], ")"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"3c482c00-6fdc-4342-a44d-c5acf2fc821b"],
 " in the ice structure."
}], "ExampleText",
 CellChangeTimes->{{3.761456561286508*^9, 3.7614566669911423`*^9}, {
  3.771130885232635*^9, 3.771130894242305*^9}, {3.771131249908787*^9, 
  3.7711312499686832`*^9}, {3.771131283791088*^9, 3.771131283981777*^9}},
 CellID->1912593623,ExpressionUUID->"ab977618-fe14-4944-a08d-11cd2500e1af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\"\<Fe\>\"", "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0.5", ",", "0.5", ",", "0.5"}], "}"}], "}"}], ",", 
   "\[IndentingNewLine]", "\"\<Ice\>\"", ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<IronIce\>\""}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.761456400956644*^9, 3.761456458509829*^9}, {
  3.771130899745236*^9, 3.771130899880916*^9}, {3.774171463269068*^9, 
  3.77417148440954*^9}},
 CellLabel->"In[1]:=",
 CellID->133271135,ExpressionUUID->"f45a4ab8-4eaf-42c5-80a7-ed3f414df7db"],

Cell[BoxData["\<\"IronIce\"\>"], "Output",
 CellChangeTimes->{{3.761456432236088*^9, 3.761456459192831*^9}, 
   3.76262441405971*^9, 3.765792257105537*^9, 3.771130904866983*^9, 
   3.7741714912038393`*^9, 3.7741715923224163`*^9, 3.782487161486848*^9},
 CellLabel->"Out[1]=",
 CellID->427796917,ExpressionUUID->"b2c69068-b370-4247-946a-619577ee910c"]
}, Open  ]],

Cell[TextData[{
 "We can use ",
 Cell[BoxData[
  ButtonBox["CrystalPlot",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalPlot"]], "InlineFormula",
  ExpressionUUID->"e52514d4-0ac6-45eb-9a57-c7f016aad4a2"],
 " to visualise the new structure:"
}], "ExampleText",
 CellChangeTimes->{{3.761457032532671*^9, 3.7614570478329163`*^9}, {
  3.7711312563257723`*^9, 3.77113126739254*^9}},
 CellID->404399049,ExpressionUUID->"c69d7d5d-d81f-4cb6-bfb5-aaa704966436"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{"\"\<IronIce\>\"", ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.0", ",", 
      RowBox[{"-", "4.8"}], ",", "3.4"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7613662040446253`*^9, 3.761366213105555*^9}, {
   3.761366295297138*^9, 3.761366297367734*^9}, {3.761416754258588*^9, 
   3.761416789313998*^9}, 3.761417175730036*^9, {3.761422968486958*^9, 
   3.761423060525825*^9}, {3.7614230920670853`*^9, 3.761423135249104*^9}, 
   3.761456399389359*^9, {3.7614564351446857`*^9, 3.7614564482868137`*^9}},
 CellLabel->"In[2]:=",
 CellID->1617847216,ExpressionUUID->"b0ab6847-fa05-479a-8b41-72b01060d74c"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {7.82, 0., 0.}}]]}, 
   {RGBColor[0, 1, 0], 
    Arrow3DBox[Line3DBox[{{0, 0, 0}, {-3.91, 6.77231865759431, 0.}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 7.36}}]]}, 
   {GrayLevel[0], 
    Line3DBox[{{-3.91, 6.77231865759431, 0.}, {3.91, 6.77231865759431, 0.}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{7.82, 0., 0.}, {3.91, 6.77231865759431, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{7.82, 0., 0.}, {7.82, 0., 7.36}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{-3.91, 6.77231865759431, 0.}, {-3.91, 6.77231865759431, 
     7.36}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{3.91, 6.77231865759431, 0.}, {3.91, 6.77231865759431, 
     7.36}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 7.36}, {7.82, 0., 7.36}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{0., 0., 7.36}, {-3.91, 6.77231865759431, 7.36}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{-3.91, 6.77231865759431, 7.36}, {3.91, 6.77231865759431, 
     7.36}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{7.82, 0., 7.36}, {3.91, 6.77231865759431, 7.36}}]}, 
   {RGBColor[0.800498, 0.201504, 0.192061], 
    SphereBox[{{2.606406, 0., 0.46}, {5.213594, 0., 6.9}}, 0.48]}, 
   {RGBColor[0.65, 0.7, 0.7], 
    SphereBox[{{2.606406, 0., 1.28064}, {3.42516, 0., 0.19136}, {5.62649, 
     0.7110934590474025, 7.176}}, 0.53]}, 
   {RGBColor[0.878431, 0.4, 0.2], 
    SphereBox[{{1.955, 3.386159328797155, 3.68}}, 1.56]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{0., -4.8, 3.4},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.7614230900737534`*^9, 3.761423157261917*^9}, {
   3.7614564491687393`*^9, 3.761456459632173*^9}, 3.762624415929096*^9, 
   3.76579225888715*^9, 3.771130906649465*^9, 3.774171496079287*^9, 
   3.7741715937994127`*^9, 3.782487163765092*^9},
 CellLabel->"Out[2]=",
 CellID->652463272,ExpressionUUID->"d93a3c8f-fcf4-4662-99fa-1adbbd7e1ff0"]
}, Open  ]],

Cell[TextData[{
 "Note that we have embedded iron into the asymmetric unit of ",
 StyleBox["Ice",
  FontSlant->"Italic"],
 " (consisting of five atoms). If we wanted to put it in an ice \
network/structure, we could have used ",
 Cell[BoxData[
  ButtonBox["ExpandCrystal",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ExpandCrystal"]], "InlineFormula",
  ExpressionUUID->"9deddf9c-6ef5-455c-bdff-c629b22b0e4f"],
 " on ",
 StyleBox["Ice",
  FontSlant->"Italic"],
 " beforehand."
}], "ExampleText",
 CellChangeTimes->{{3.771131217066959*^9, 3.771131241250925*^9}, {
  3.771131274861126*^9, 3.7711314111555023`*^9}},
 CellID->1488703067,ExpressionUUID->"5a02ce14-e7b5-410d-8bde-7a6f87c75bd0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d5e6bd53-25bc-40ff-bb33-1432669086f7"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1314178903,ExpressionUUID->"cac21f49-f0d1-4d0e-bcb5-f3221262c9f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "@", 
  RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\"\<GalliumArsenide\>\"", "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0.75", ",", "0.75", ",", "0.75"}], "}"}], "}"}], ",", 
    "\[IndentingNewLine]", "\"\<Sodalite\>\"", ",", 
    RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<DemoStructure\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7614174483687363`*^9, 3.761417541454411*^9}, 
   3.761457061197743*^9, {3.7741716067539997`*^9, 3.774171609567132*^9}},
 CellLabel->"In[1]:=",
 CellID->1530433439,ExpressionUUID->"79ff87a6-e6ae-4ad4-868b-85c69308dc3b"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {8.875, 0., 0.}}]]}, 
   {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 8.875, 0.}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 8.875}}]]}, 
   {GrayLevel[0], Line3DBox[{{0., 8.875, 0.}, {8.875, 8.875, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 0., 0.}, {8.875, 8.875, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 0., 0.}, {8.875, 0., 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 8.875, 0.}, {0., 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 8.875, 0.}, {8.875, 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 8.875}, {8.875, 0., 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 8.875}, {0., 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 8.875, 8.875}, {8.875, 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 0., 8.875}, {8.875, 8.875, 8.875}}]}, 
   {RGBColor[0.658708, 0.492173, 0.842842], 
    SphereBox[{{1.5770875, 1.5770875, 1.5770875}}, 1.9]}, 
   {RGBColor[0.8913, 0.631904, 0.627399], 
    SphereBox[{{2.21875, 0., 4.4375}}, 1.18]}, 
   {RGBColor[0.941176, 0.784314, 0.627451], 
    SphereBox[{{2.21875, 4.4375, 0.}}, 1.11]}, 
   {RGBColor[0.800498, 0.201504, 0.192061], 
    SphereBox[{{1.2309625, 1.31705, 3.8828125}}, 0.48]}, 
   {RGBColor[0.412698, 0.932689, 0.166398], 
    SphereBox[{{0., 0., 0.}}, 0.79]}, 
   {RGBColor[0.800757, 0.542666, 0.533513], 
    SphereBox[{{6.65625, 6.65625, 6.65625}}, 1.36]}, 
   {RGBColor[0.741176, 0.501961, 0.890196], 
    SphereBox[{{8.0696, 8.0696, 8.0696}}, 1.14]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{1.3, -2.4, 2.},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{
  3.7614231707619343`*^9, 3.7626244210446177`*^9, 3.76579226648094*^9, {
   3.774171509555661*^9, 3.7741715205664597`*^9}, {3.7741716013247538`*^9, 
   3.7741716101044617`*^9}, 3.7824871825079107`*^9},
 CellLabel->"Out[1]=",
 CellID->692547929,ExpressionUUID->"b4c1f91c-772d-4cb8-9ff6-26568cb12d2a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "01fc94bb-a386-4b16-b809-7713d0f6c9a1"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->80019424,ExpressionUUID->"069508d1-802d-4b00-957e-fba999dd1def"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{
   RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<Fe\>\"", ",", "\"\<Tc\>\"", ",", "\"\<Ni\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "2"}], ",", 
        RowBox[{"1", "/", "2"}], ",", 
        RowBox[{"1", "/", "2"}]}], "}"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"ExpandCrystal", "[", 
      RowBox[{"\"\<Silicon\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<DemoStructure\>\""}]}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ViewPoint", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7674299851913652`*^9, 3.767430044942664*^9}, {
  3.7674310625191307`*^9, 3.7674311363651743`*^9}, {3.77417162965532*^9, 
  3.774171633926608*^9}},
 CellLabel->"In[1]:=",
 CellID->995987951,ExpressionUUID->"16663ad2-a378-4a6a-936d-4d762eeadd86"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5.43088, 0., 0.}}]]}, 
   {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5.43088, 0.}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.43088}}]]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.43088, 0.}, {5.43088, 5.43088, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.43088, 0., 0.}, {5.43088, 5.43088, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.43088, 0., 0.}, {5.43088, 0., 5.43088}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.43088, 0.}, {0., 5.43088, 5.43088}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{5.43088, 5.43088, 0.}, {5.43088, 5.43088, 5.43088}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.43088}, {5.43088, 0., 5.43088}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.43088}, {0., 5.43088, 5.43088}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{0., 5.43088, 5.43088}, {5.43088, 5.43088, 5.43088}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{5.43088, 0., 5.43088}, {5.43088, 5.43088, 5.43088}}]}, 
   {RGBColor[0.941176, 0.784314, 0.627451], SphereBox[CompressedData["
1:eJyF1y9o1WEUxvHLDAbT0CCC4EAdgiCYhsVrsGhb14mg0T8gtslAmE1MFkVW
ZtvagmAYVq2CIMiKCFa7uPIYPj8e3nD5cc499/1933Oe95z3Lt19uHpvYTab
fTv8HDn8PJutvln58POqz3cb5z9tLh+bj+z2TNyD/V8vFheOz29vrD/5fWP2
/xm/zxbXbLlfzj/urj06OeG4v3X57/r7pQl//PJnHd+3s//q686P0xPupwdv
F7dvnZ3w60981pF/88zRc19OLE/4t7e+3zz1/OKEP375s478r+88Xvnz+cKE
f+/g+tq1K5cm/PoTn3XMu3yjeshtncyXHMnvqE6tHvLLG1uu2O4jtvoJj1zh
kStx+mOrn7xP/cSvfsKpfuJXP3mf+gmPOkm8/sSrn7xP/YzOg/pxn+pV/YRv
dE7aeZBf/cSvfsKpfuJXP+FRP+FRJ4nXn3j1E07zHdu8xrYOsdVPeMxreMxr
4vTHzvf2nVG/tz5tDuR3o75uH219qvUj+Uf9Rv7WhxI36iueY/n1ux/5R3qX
v52DrDPStTqSX796tO+P8m19Wh3UT8ur+2hzos0D+eUb2e2pfuSSfxTXbLnV
j/NLfvXj/PJ96sf5Jb9+55fc6mc0j9WPfdb3qR/nV5vTbR7Lb35H9TDv1kl+
8+j8anVq9ZBfXueX/O7D+SW/XM4v+fU7v9TN6L6vntr/gPxudK93frV7UrsP
yT+6b8rf7qFZZ3SvdH61c9LOg/yj+4787R6UuNG9xvklv37r4bkdzVvPR5vD
6qfNVedXu6e2+6j8o34vf5sD6qf1dedA61OtH8k/6jfytz6kflpfsQ/Jr9/9
2DdHend/7Ryon6Zrz0H7n9D+D8g/yrf8rQ7qp+XVOrQ50eaB/PKN7PZUP3LJ
P4pr9j88S4ut
     "], 1.11]}, 
   {RGBColor[0.878431, 0.4, 0.2], 
    SphereBox[{{2.71544, 2.71544, 2.71544}, {2.71544, 8.14632, 2.71544}, {
     2.71544, 13.577200000000001`, 2.71544}, {8.14632, 2.71544, 2.71544}, {
     8.14632, 8.14632, 2.71544}, {8.14632, 13.577200000000001`, 2.71544}, {
     13.577200000000001`, 2.71544, 2.71544}, {13.577200000000001`, 8.14632, 
     2.71544}, {13.577200000000001`, 13.577200000000001`, 2.71544}}, 1.56]}, 
   {RGBColor[0.234466, 0.669394, 0.701499], 
    SphereBox[{{2.71544, 2.71544, 8.14632}, {2.71544, 8.14632, 8.14632}, {
     2.71544, 13.577200000000001`, 8.14632}, {8.14632, 2.71544, 8.14632}, {
     8.14632, 8.14632, 8.14632}, {8.14632, 13.577200000000001`, 8.14632}, {
     13.577200000000001`, 2.71544, 8.14632}, {13.577200000000001`, 8.14632, 
     8.14632}, {13.577200000000001`, 13.577200000000001`, 8.14632}}, 1.83]}, 
   {RGBColor[0.313725, 0.815686, 0.313725], 
    SphereBox[{{2.71544, 2.71544, 13.577200000000001`}, {2.71544, 8.14632, 
     13.577200000000001`}, {2.71544, 13.577200000000001`, 
     13.577200000000001`}, {8.14632, 2.71544, 13.577200000000001`}, {8.14632, 
     8.14632, 13.577200000000001`}, {8.14632, 13.577200000000001`, 
     13.577200000000001`}, {13.577200000000001`, 2.71544, 
     13.577200000000001`}, {13.577200000000001`, 8.14632, 
     13.577200000000001`}, {13.577200000000001`, 13.577200000000001`, 
     13.577200000000001`}}, 1.49]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->Left,
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{
  3.76743106766474*^9, {3.7674310992603903`*^9, 3.7674311403373117`*^9}, 
   3.774171638769114*^9, 3.782487189350731*^9},
 CellLabel->"Out[1]=",
 CellID->58076731,ExpressionUUID->"5a8960aa-fdec-4008-8290-871d6218c671"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8d542510-7bfa-4905-8dea-3bcb0d716efa"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->962783331,ExpressionUUID->"4921956e-8339-486c-9606-2bcd26144139"],

Cell[TextData[{
 "In this example we will work with ",
 StyleBox["ice",
  FontSlant->"Italic"],
 " as our host structure. Let us see if we can find a special position to \
embed atoms in\[Ellipsis]"
}], "ExampleText",
 CellChangeTimes->{{3.76145723494878*^9, 3.7614572558583*^9}, {
  3.76145729314787*^9, 3.761457313703225*^9}, {3.761458002757278*^9, 
  3.761458025907056*^9}},
 CellID->1283129296,ExpressionUUID->"18d18e65-8364-4796-b8dc-803ff05d9882"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"spcgr", "=", 
  RowBox[{"GetSymmetryData", "[", 
   RowBox[{"\"\<Ice\>\"", ",", "\"\<Symbol\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.761417626342946*^9, 3.761417635149435*^9}, {
  3.761418163098918*^9, 3.7614181678894157`*^9}},
 CellLabel->"In[1]:=",
 CellID->36276483,ExpressionUUID->"80e43724-e526-4196-bac8-6ed705d1e204"],

Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)cm\"\>"], \
"Output",
 CellChangeTimes->{{3.7614181604916267`*^9, 3.761418202599306*^9}, {
   3.761423174308133*^9, 3.761423180537829*^9}, {3.7614232174721823`*^9, 
   3.761423260407031*^9}, 3.761456369037125*^9, {3.761459881063994*^9, 
   3.7614598995595827`*^9}, 3.765792276930792*^9, {3.765792374052389*^9, 
   3.765792392547512*^9}, 3.7741716474585342`*^9, 3.782487195851638*^9, 
   3.7878981206263847`*^9},
 CellLabel->"Out[1]=",
 CellID->561240086,ExpressionUUID->"bd57ce52-7e21-4ca9-a5e2-ebead134bfcd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"$GroupSymbolRedirect", "[", "spcgr", "]"}], "[", 
   "\"\<SpecialPositions\>\"", "]"}], "\[LeftDoubleBracket]", "3", 
  "\[RightDoubleBracket]"}]], "Input",
 CellChangeTimes->{{3.761417638824312*^9, 3.761417659491067*^9}, {
  3.761418173658998*^9, 3.7614182220488043`*^9}, {3.761457084841845*^9, 
  3.761457095309971*^9}},
 CellLabel->"In[2]:=",
 CellID->1467962770,ExpressionUUID->"9c336720-b6f0-4434-8937-9e3b7926368f"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Multiplicity\"\>", "\[Rule]", "4"}], ",", 
   RowBox[{"\<\"WyckoffLetter\"\>", "\[Rule]", "\<\"b\"\>"}], ",", 
   RowBox[{"\<\"SiteSymmetry\"\>", "\[Rule]", "\<\"3..\"\>"}], ",", 
   RowBox[{"\<\"Coordinates\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "3"], ",", 
        FractionBox["2", "3"], ",", "\<\"z\"\>"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["2", "3"], ",", 
        FractionBox["1", "3"], ",", 
        RowBox[{
         FractionBox["1", "2"], "+", "\<\"z\"\>"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "3"], ",", 
        FractionBox["2", "3"], ",", 
        RowBox[{
         FractionBox["1", "2"], "+", "\<\"z\"\>"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["2", "3"], ",", 
        FractionBox["1", "3"], ",", "\<\"z\"\>"}], "}"}]}], "}"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.761457080504974*^9, 3.761457095453517*^9}, {
   3.761459881166025*^9, 3.761459899648199*^9}, 3.765792278815753*^9, {
   3.765792374149852*^9, 3.76579239265546*^9}, 3.7741716490273952`*^9, 
   3.7824871967471027`*^9, 3.787898122294346*^9},
 CellLabel->"Out[2]=",
 CellID->23188866,ExpressionUUID->"b5e50df5-2443-41db-9c2f-93ba482662c1"]
}, Open  ]],

Cell[TextData[{
 "\[Ellipsis] taking the ",
 Cell[BoxData[
  FormBox[
   RowBox[{"4", " \[NegativeMediumSpace]", "b"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"1c2a1691-ce35-4f93-8a86-4b62a0e2c2e7"],
 " site, for example, which is shown above. Atoms located at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"1", "/", "3"}], ",", "\[MediumSpace]", 
     RowBox[{"2", "/", "3"}], ",", "\[MediumSpace]", "z"}], ")"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "5d63ecca-03d4-4c3d-b61b-884b840d1445"],
 " have this site symmetry. Let us put nickel in there, and use a host \
structure that is ",
 Cell[BoxData[
  FormBox[
   RowBox[{"4", "\[Times]", "3", "\[Times]", "1"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"05690853-7892-4abd-9596-83be95148e33"],
 " unit cells of ice:"
}], "ExampleText",
 CellChangeTimes->{{3.761458032988793*^9, 3.761458038362494*^9}, {
  3.761458514578343*^9, 3.761458524160516*^9}, {3.761458558325056*^9, 
  3.7614585718180313`*^9}, {3.761458648759516*^9, 3.761458738110969*^9}, {
  3.761459269261202*^9, 3.761459273131156*^9}, {3.76145955377802*^9, 
  3.761459585969685*^9}},
 CellID->1308050109,ExpressionUUID->"16579b57-6f79-468a-81a4-54ff6097f2c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{
   RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\"\<Ni\>\"", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        RowBox[{"2", "/", "3"}], ",", "0.5"}], "}"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ExpandCrystal", "[", 
      RowBox[{"\"\<Ice\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<NickelIce\>\""}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<None\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7613662040446253`*^9, 3.761366213105555*^9}, {
   3.761366295297138*^9, 3.761366297367734*^9}, {3.761416754258588*^9, 
   3.761416789313998*^9}, {3.7614168880948477`*^9, 3.7614168899571333`*^9}, {
   3.761416996797711*^9, 3.761417078170259*^9}, {3.761417139514247*^9, 
   3.761417164326576*^9}, {3.761417697323944*^9, 3.7614177050746098`*^9}, {
   3.7614177375334997`*^9, 3.761417740898967*^9}, {3.7614177910275908`*^9, 
   3.761417805472424*^9}, {3.761417921416511*^9, 3.761417923981391*^9}, {
   3.7614179809498158`*^9, 3.76141804076296*^9}, 3.761418102986668*^9, {
   3.761423199530777*^9, 3.76142320425839*^9}, 3.761457129236528*^9, {
   3.774171652137568*^9, 3.774171654250681*^9}, {3.787898131004018*^9, 
   3.787898145053245*^9}},
 CellLabel->"In[3]:=",
 CellID->1668268251,ExpressionUUID->"b23d8941-37d3-4b5b-835e-78a8e8472b34"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxllk1IVGEYhSdToR+YUQYLBaFhktEkRU1SZ5i7CVpEUCG0sJTBQFc5Ki5K
hCAhCiqIFgotwlUgKAhCETUpREaBYSkN/UdUm6Aoito0l/udO9znE9wcXt55
53vOcM6uzOmjp0pCodBs4X9z4b/vzeO54XypEzJ/2dTWjZmh12lP/3l/bfLl
wa5wiSN95/D1u6OF+QOV3eFUuBJ61N9zdelXoudKxDHzOc1LN/vT2i99taxv
ZazwuXtfPFjIV9X4+1OJ5sWRfDS3/dCOxmQ45us95s7bI5feb7tW5+tmT1p7
tH+u/sJARUV1TvPSq82d2h+8P5rz9uzx9w89ae/bnY7lZtr/TN6abvL1pLkz
0bR4IxlucYLvWerv0f6Gp5mO0Xzcn5c+b+7Ufukns4Mf3c/90PusPH6kzd//
/G0sEynMS9e8925xi6/Z75BvvXePxdd7twaLr/m+DvlmvfdxyHfdu9Mh3yrj
K/I1vBzyPeG9g0O+/cZX5Gv845Bvv/E/+cr/5Bs1d5JvlfE/+cr/5Dtg7iTf
R8b/5Gv0NPl6Pmyx+I5PnrvXO9to8f1cu3rTnSdfz4dtFt+l892fIgXu5Hux
tnPfxPdmi+/ld4e73M8lX+Nzi6/uJN9N2bUxdz/5mt+dQ766k3yTxv/kK/+T
r+4k33njf/KV/8lXd5Kv+Z065Gt+1w75et+r0+IbOdvbX5Not/h2bHyrqyjM
k6/3zkmL78KZld8jBe7k+2r9+J3B5f0W36nEw5j7ueQrX5Gv7iTfY/U//rn7
yVe+Il/dSb7yP/nKV+SrO8lX/idf+Yp8dSf5yv/kKz+Tb6Z14mv535TFsaz1
y7jLi1zEl+8sXnw3vT/fQe/J78Ucn55y/2qsHJfOHA/qxV6x7K5f2uKwV0hn
r5DOHNd+5rh05rh09grtZ6+Qzl4RvL+Y49rPHJfOHA++Z7FXaD97hXT2CunM
fe1nT9A8c1zzzHHpzHHp7BXaz14hnb1COnNc+5njwc8t5rh09grtZ68IvkOx
VwTnizlO/5Mvczx4f7FX0P/ky14hnbmv/ewJmmeOa545Lp05Lp29QvvZK6Sz
V0hnjgf3F3Ocd5Ive0Xw+8YtvuwVQX82WHyZ47yTfNkr6H/yZa+QztzXfvaE
4PdKWnyZ49KZ48F37rT4sldIZ6+Qzhynr8iXOS6dvYK+Il/2CvqffJnjvJN8
2SvoK/Jlr6D/yZc9QfPMfc2zJ2ieua959gTNM/c1z56g+f/FZ6gL
     "], 0.48]}, 
   {RGBColor[0.65, 0.7, 0.7], SphereBox[CompressedData["
1:eJxll3tQ1WUaxw+KYFDCQUQiLwjEHEC5CAc5Ap130NUuiLaukl2UyHaiDVzU
UdYUvGHrRk4tYnnvtlvmrpctbSMGTjUZXrbV1SjOFqKUpe5qEpXltO1h3uf7
zvh9/ceZZ555fs95Ps/n+f0YU77glw8PcDgcBUEOx8DA/2VdR/Yu9Acrh/z7
KnPe3JUr+rw63td2sr7z9vyIAQrx2IVNLYsD+b+ImhVRGBFF8WhTp/fCiIF/
+3ioknwf8hGX+l7UR/z4oLLDSwLPTf/ondf9MbeY+oWuzIOL/NG+G4uHjy2I
SDDx+6XPtxY9eSa8MdnEpY4XdVB/b8rvH3E643zIRzxO+kT96/uP9uk6aab+
b4/llt3qTfC9lHu1fteWDBMvkD5dGQe3F0SMV9fPM9jUQf3Uf5R7FvuTTD7i
+6RP1Ed8bnVFT/9zz847EZJ0d46pf+p0QnlkIB9x5Ou5JVl8pb5ivim6H4uv
nluqxVd+r2K+1Xo+ivl26D4V842RvWK+wksx3wf0HBTznS97xXxlfxTznS/7
z3yx/8w3WvpkvjGy/8wX+898H5E+mW+77D/zlbiX+eo9HG/xXV6/qnXeX8Za
fL8cdfyF/nzmq/cwx+L77tpZX0QGuDPfP4ya6K69kmnx3dBdkt//XOYre27x
RZ/MN6j65JL++sxXvFPMF30y3wLZf+aL/We+6JP57pP9Z77Yf+aLPpmveKqY
r3itmK/+XRMtvpGPz5t/iyvX4uv5+FKyM5DPfPWcCyy+ry87/P2iAHfm+2nH
Pc0V7+VZfDe7DiX0P5f5Yq+YL/pkvjNTeq/112e+2Cvmiz6ZL/af+WKvmC/6
ZL7Yf+aLvWK+6JP5Yv+ZL/aZ+ZZn154P+bHQ4jgo+6vl/byYC/jynMGL54b5
8xwwT/5dfesL7mj+dbjZk2e2nglZXtvu1fFrbX/OPbf3UnOoQnzatk8vz9gY
pA4s2v7moYVDKO40dVJLa5598uoQJfk+5CMu9b2oj/jzzb1zdoSeNt8DqD+m
sWFb/YoYn6rxD0pZlqi4z7VT20NHu2418ad1HfM9gPpHWtNW/1wZ60M+4iXS
J+pfH3ea9zjq9wQ9PHNPZKLvsf2fZRxdnWn1edPmU5mH5mSZ+Hd6zqYO6r/5
bM6Ui4OTTD7ix6RP1Ef8dyE3/TR0W7x576P+zgP/Ts8pHWniyNf9JFt8j+r6
ivlKPxZfPTeXxTdB/17FfM/q+Sjmu0P3qZivzF8xX+GlmG+NnoNivldlr5iv
cFHMF/vPfKVOG/Mtlj6Zb7HsP/OVfIvv19In88X+M9+Vss/MV+9htsU3bMbM
ox3+NIvvuGCP68GOLIuv5p5j8XU3r/lk89lUi+9kz4k9RfdmWXwX37V7TPX0
dIvv32WvmO8N0ifz3ZD/pzXfjs60+Ip3ivnmSp/MN0H2n/lir5gv9p/5Yv+Z
L/af+aJPi6/sP/PFPjNfPf+JFt/SsvYLs9vcFt+6ltK/Fr/qsfjqOedbfB9r
KqvOm+S2+G66cjk7fazH4nvj3L5hL/+Qa/FNl71ivrOlT+bb/c17g89cmWDx
xV4x30rpk/li/5kv9or5ok/mi/1nvth/5os+mS/2n/lin5nvrtgvFxQ9U2hx
bJ1W913isEKLy0rhy3MGL54b5s9zAHf+XQ3D3M+tWxWjqoq6nVPfOectKY+8
x/PGCNVzc07f9KedyvVu2G0NziiFeK/csa7U/0zb9MZVk7+zsWtC65JrbaeP
1Z/Yf1usSnsipvPD78PVpcZHd274oKstLLnq4rawASaO74qlR6bEHzgfbeJ4
T6E+4ksD3ZY0BJk+ET+y4SnVUhVu+kQc73fUR587dJ9e9Il4n+7Tiz4Rf17y
l3/2U9PAyyNN3LFR5+++61xN9sZkE8dzv1mwI9HxYryJy5x9oSdeKjr0Worp
U+bsi1vcsjF6SIKJ4330r+nBF6Y6XPy7FOojLn22oU/Eu2X+6JPm7EN99LlM
z9n0ibjM2fTJ+bM6TyddXj3Wyh+z9aGK44HvT8Tx3PX31q2oHJdu4rGTAoJF
Jfr++UDRhzdvzTZ9Tn4/r27olnjf/rnbL63anGHicod97u29L/jfH2/i+D5E
fcSfkvmjT54/+kRc3l+mPvosK1iz7n8VsaZPxG/IW5vqvm+k6RPxR6+Vzt7y
earl16YVpcE//8Zl+YX3CPslz1Xs12D9XMV+HZT3GvuF7wT2a3X/4QhJsvwq
PVUWt64u2fIrXt6D7NdwzVGxX5M0R8V+CXfFfgl3xX7h/ct+LZH7wH61y31g
v9rlzrBf+G5hvx6U+bNf4TJ/9gvfe+zXerm37NdZubfsF+4z+/W55LNf+B5m
v3Af2C+5Y23s1+1yZ9gv+TtFsV81Mn/265jMn/2aIXeS/XpO7i37JXfMy36F
HrxzX95kt+XXiKV3hl4MzbH8miTvcfbr1JC6aR2fpFl+7Wqo21l9d7rlF74r
2C+8f9mvxp6S82UfZVl+1SZM/+MeZ7blF75D2K+uOW//t+i+LMuvvri3J387
KtPyC/nsF/LZLzyX/cJ9YL9wH9gvfI+xX5gb+4X5s1+vyfzZL9xJ9gv3lv1q
knvLfiGf/UI++4Xnsl+4z+xXmNwH9gt/d7BfmBv7hfmzX5g/+4U7yX7h3rJf
uM/s15yqCndSTKHlV1VGRUNHZ77lV5N8l7JfLd6u3bNb3ZZfr9R2/erlH3Mt
v/Ddy369Kt/P7NcXWyuril/xWH4d91cO39Iz0fILf1+wX5lR/oXp4zyWX1NO
dh7u/nqC5Rfy2S/ks1/4Dme/cB/YL9wH9gt3hv3C3NgvzJ/9wvzZL/y9w37h
3rJfuLfsF/LZL+SzX3gu+4X7wH7hPrNfuDPsF+bGfmH+7Bfmz37hTrJfuLfs
F+4t+/V/QuSOOA==
     "], 0.53]}, 
   {RGBColor[0.313725, 0.815686, 0.313725], 
    SphereBox[{{0., 4.514879105062873, 3.68}, {-3.910000000000001, 
     11.287197762657184`, 3.68}, {-7.819999999999999, 18.05951642025149, 
     3.68}, {7.819999999999999, 4.514879105062873, 3.68}, {
     3.9099999999999984`, 11.287197762657184`, 3.68}, {0., 18.05951642025149, 
     3.68}, {15.640000000000004`, 4.514879105062873, 3.68}, {
     11.730000000000002`, 11.287197762657184`, 3.68}, {7.820000000000004, 
     18.05951642025149, 3.68}, {23.460000000000004`, 4.514879105062873, 
     3.68}, {19.550000000000004`, 11.287197762657184`, 3.68}, {
     15.640000000000004`, 18.05951642025149, 3.68}}, 1.49]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->Above,
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.761459889767735*^9, 3.761459899984065*^9}, 
   3.765792280800992*^9, {3.7657923745233173`*^9, 3.765792393038988*^9}, 
   3.7741716561611977`*^9, 3.782487199208909*^9, 3.7878981495040913`*^9},
 CellLabel->"Out[3]=",
 CellID->400886572,ExpressionUUID->"38dfff64-e577-4764-8b24-837fb86b0ad8"]
}, Open  ]],

Cell["\<\
We can also mix in nickel and iron at the special position, randomly \
distributed at a 3:1 ratio:\
\>", "ExampleText",
 CellChangeTimes->{{3.761459596979394*^9, 3.761459600801379*^9}, {
   3.761459834805807*^9, 3.76145985772375*^9}, {3.771134757812619*^9, 
   3.7711347613736134`*^9}, {3.7878982192088213`*^9, 3.787898248911503*^9}, {
   3.787898332611664*^9, 3.787898332674306*^9}, 3.787909087662813*^9},
 CellID->29711224,ExpressionUUID->"ba49ab8c-e073-4afe-8e3d-7a6ae1d21720"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{
   RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.75", ",", "0.25"}], "}"}], "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Ni\>\"", ",", "\"\<Fe\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        RowBox[{"2", "/", "3"}], ",", "0.5"}], "}"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ExpandCrystal", "[", 
      RowBox[{"\"\<Ice\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<NickelIce\>\""}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<None\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7613662040446253`*^9, 3.761366213105555*^9}, {
   3.761366295297138*^9, 3.761366297367734*^9}, {3.761416754258588*^9, 
   3.761416789313998*^9}, {3.7614168880948477`*^9, 3.7614168899571333`*^9}, {
   3.761416996797711*^9, 3.761417078170259*^9}, {3.761417139514247*^9, 
   3.761417164326576*^9}, {3.761417697323944*^9, 3.7614177050746098`*^9}, {
   3.7614177375334997`*^9, 3.761417740898967*^9}, {3.7614177910275908`*^9, 
   3.761417805472424*^9}, {3.761417921416511*^9, 3.761417923981391*^9}, {
   3.7614179809498158`*^9, 3.76141804076296*^9}, {3.761418100835869*^9, 
   3.7614181177218523`*^9}, {3.7614232133937397`*^9, 3.761423214743527*^9}, {
   3.761459739194708*^9, 3.761459746537777*^9}, {3.761459807624421*^9, 
   3.761459808253531*^9}, {3.774171666161729*^9, 3.7741716682427673`*^9}, {
   3.782487919373787*^9, 3.782487927619913*^9}, 3.782488704887927*^9, {
   3.787898159659541*^9, 3.7878981622912807`*^9}},
 CellLabel->"In[4]:=",
 CellID->873180837,ExpressionUUID->"d4efcb1c-4139-404f-acae-14e243f600ed"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxllk1IVGEYhSdToR+YUQYLBaFhktEkRU1SZ5i7CVpEUCG0sJTBQFc5Ki5K
hCAhCiqIFgotwlUgKAhCETUpREaBYSkN/UdUm6Aoito0l/udO9znE9wcXt55
53vOcM6uzOmjp0pCodBs4X9z4b/vzeO54XypEzJ/2dTWjZmh12lP/3l/bfLl
wa5wiSN95/D1u6OF+QOV3eFUuBJ61N9zdelXoudKxDHzOc1LN/vT2i99taxv
ZazwuXtfPFjIV9X4+1OJ5sWRfDS3/dCOxmQ45us95s7bI5feb7tW5+tmT1p7
tH+u/sJARUV1TvPSq82d2h+8P5rz9uzx9w89ae/bnY7lZtr/TN6abvL1pLkz
0bR4IxlucYLvWerv0f6Gp5mO0Xzcn5c+b+7Ufukns4Mf3c/90PusPH6kzd//
/G0sEynMS9e8925xi6/Z75BvvXePxdd7twaLr/m+DvlmvfdxyHfdu9Mh3yrj
K/I1vBzyPeG9g0O+/cZX5Gv845Bvv/E/+cr/5Bs1d5JvlfE/+cr/5Dtg7iTf
R8b/5Gv0NPl6Pmyx+I5PnrvXO9to8f1cu3rTnSdfz4dtFt+l892fIgXu5Hux
tnPfxPdmi+/ld4e73M8lX+Nzi6/uJN9N2bUxdz/5mt+dQ766k3yTxv/kK/+T
r+4k33njf/KV/8lXd5Kv+Z065Gt+1w75et+r0+IbOdvbX5Not/h2bHyrqyjM
k6/3zkmL78KZld8jBe7k+2r9+J3B5f0W36nEw5j7ueQrX5Gv7iTfY/U//rn7
yVe+Il/dSb7yP/nKV+SrO8lX/idf+Yp8dSf5yv/kKz+Tb6Z14mv535TFsaz1
y7jLi1zEl+8sXnw3vT/fQe/J78Ucn55y/2qsHJfOHA/qxV6x7K5f2uKwV0hn
r5DOHNd+5rh05rh09grtZ6+Qzl4RvL+Y49rPHJfOHA++Z7FXaD97hXT2CunM
fe1nT9A8c1zzzHHpzHHp7BXaz14hnb1COnNc+5njwc8t5rh09grtZ68IvkOx
VwTnizlO/5Mvczx4f7FX0P/ky14hnbmv/ewJmmeOa545Lp05Lp29QvvZK6Sz
V0hnjgf3F3Ocd5Ive0Xw+8YtvuwVQX82WHyZ47yTfNkr6H/yZa+QztzXfvaE
4PdKWnyZ49KZ48F37rT4sldIZ6+Qzhynr8iXOS6dvYK+Il/2CvqffJnjvJN8
2SvoK/Jlr6D/yZc9QfPMfc2zJ2ieua959gTNM/c1z56g+f/FZ6gL
     "], 0.48]}, 
   {RGBColor[0.65, 0.7, 0.7], SphereBox[CompressedData["
1:eJxll3tQ1WUaxw+KYFDCQUQiLwjEHEC5CAc5Ap130NUuiLaukl2UyHaiDVzU
UdYUvGHrRk4tYnnvtlvmrpctbSMGTjUZXrbV1SjOFqKUpe5qEpXltO1h3uf7
zvh9/ceZZ555fs95Ps/n+f0YU77glw8PcDgcBUEOx8DA/2VdR/Yu9Acrh/z7
KnPe3JUr+rw63td2sr7z9vyIAQrx2IVNLYsD+b+ImhVRGBFF8WhTp/fCiIF/
+3ioknwf8hGX+l7UR/z4oLLDSwLPTf/ondf9MbeY+oWuzIOL/NG+G4uHjy2I
SDDx+6XPtxY9eSa8MdnEpY4XdVB/b8rvH3E643zIRzxO+kT96/uP9uk6aab+
b4/llt3qTfC9lHu1fteWDBMvkD5dGQe3F0SMV9fPM9jUQf3Uf5R7FvuTTD7i
+6RP1Ed8bnVFT/9zz847EZJ0d46pf+p0QnlkIB9x5Ou5JVl8pb5ivim6H4uv
nluqxVd+r2K+1Xo+ivl26D4V842RvWK+wksx3wf0HBTznS97xXxlfxTznS/7
z3yx/8w3WvpkvjGy/8wX+898H5E+mW+77D/zlbiX+eo9HG/xXV6/qnXeX8Za
fL8cdfyF/nzmq/cwx+L77tpZX0QGuDPfP4ya6K69kmnx3dBdkt//XOYre27x
RZ/MN6j65JL++sxXvFPMF30y3wLZf+aL/We+6JP57pP9Z77Yf+aLPpmveKqY
r3itmK/+XRMtvpGPz5t/iyvX4uv5+FKyM5DPfPWcCyy+ry87/P2iAHfm+2nH
Pc0V7+VZfDe7DiX0P5f5Yq+YL/pkvjNTeq/112e+2Cvmiz6ZL/af+WKvmC/6
ZL7Yf+aLvWK+6JP5Yv+ZL/aZ+ZZn154P+bHQ4jgo+6vl/byYC/jynMGL54b5
8xwwT/5dfesL7mj+dbjZk2e2nglZXtvu1fFrbX/OPbf3UnOoQnzatk8vz9gY
pA4s2v7moYVDKO40dVJLa5598uoQJfk+5CMu9b2oj/jzzb1zdoSeNt8DqD+m
sWFb/YoYn6rxD0pZlqi4z7VT20NHu2418ad1HfM9gPpHWtNW/1wZ60M+4iXS
J+pfH3ea9zjq9wQ9PHNPZKLvsf2fZRxdnWn1edPmU5mH5mSZ+Hd6zqYO6r/5
bM6Ui4OTTD7ix6RP1Ef8dyE3/TR0W7x576P+zgP/Ts8pHWniyNf9JFt8j+r6
ivlKPxZfPTeXxTdB/17FfM/q+Sjmu0P3qZivzF8xX+GlmG+NnoNivldlr5iv
cFHMF/vPfKVOG/Mtlj6Zb7HsP/OVfIvv19In88X+M9+Vss/MV+9htsU3bMbM
ox3+NIvvuGCP68GOLIuv5p5j8XU3r/lk89lUi+9kz4k9RfdmWXwX37V7TPX0
dIvv32WvmO8N0ifz3ZD/pzXfjs60+Ip3ivnmSp/MN0H2n/lir5gv9p/5Yv+Z
L/af+aJPi6/sP/PFPjNfPf+JFt/SsvYLs9vcFt+6ltK/Fr/qsfjqOedbfB9r
KqvOm+S2+G66cjk7fazH4nvj3L5hL/+Qa/FNl71ivrOlT+bb/c17g89cmWDx
xV4x30rpk/li/5kv9or5ok/mi/1nvth/5os+mS/2n/lin5nvrtgvFxQ9U2hx
bJ1W913isEKLy0rhy3MGL54b5s9zAHf+XQ3D3M+tWxWjqoq6nVPfOectKY+8
x/PGCNVzc07f9KedyvVu2G0NziiFeK/csa7U/0zb9MZVk7+zsWtC65JrbaeP
1Z/Yf1usSnsipvPD78PVpcZHd274oKstLLnq4rawASaO74qlR6bEHzgfbeJ4
T6E+4ksD3ZY0BJk+ET+y4SnVUhVu+kQc73fUR587dJ9e9Il4n+7Tiz4Rf17y
l3/2U9PAyyNN3LFR5+++61xN9sZkE8dzv1mwI9HxYryJy5x9oSdeKjr0Worp
U+bsi1vcsjF6SIKJ4330r+nBF6Y6XPy7FOojLn22oU/Eu2X+6JPm7EN99LlM
z9n0ibjM2fTJ+bM6TyddXj3Wyh+z9aGK44HvT8Tx3PX31q2oHJdu4rGTAoJF
Jfr++UDRhzdvzTZ9Tn4/r27olnjf/rnbL63anGHicod97u29L/jfH2/i+D5E
fcSfkvmjT54/+kRc3l+mPvosK1iz7n8VsaZPxG/IW5vqvm+k6RPxR6+Vzt7y
earl16YVpcE//8Zl+YX3CPslz1Xs12D9XMV+HZT3GvuF7wT2a3X/4QhJsvwq
PVUWt64u2fIrXt6D7NdwzVGxX5M0R8V+CXfFfgl3xX7h/ct+LZH7wH61y31g
v9rlzrBf+G5hvx6U+bNf4TJ/9gvfe+zXerm37NdZubfsF+4z+/W55LNf+B5m
v3Af2C+5Y23s1+1yZ9gv+TtFsV81Mn/265jMn/2aIXeS/XpO7i37JXfMy36F
HrxzX95kt+XXiKV3hl4MzbH8miTvcfbr1JC6aR2fpFl+7Wqo21l9d7rlF74r
2C+8f9mvxp6S82UfZVl+1SZM/+MeZ7blF75D2K+uOW//t+i+LMuvvri3J387
KtPyC/nsF/LZLzyX/cJ9YL9wH9gvfI+xX5gb+4X5s1+vyfzZL9xJ9gv3lv1q
knvLfiGf/UI++4Xnsl+4z+xXmNwH9gt/d7BfmBv7hfmzX5g/+4U7yX7h3rJf
uM/s15yqCndSTKHlV1VGRUNHZ77lV5N8l7JfLd6u3bNb3ZZfr9R2/erlH3Mt
v/Ddy369Kt/P7NcXWyuril/xWH4d91cO39Iz0fILf1+wX5lR/oXp4zyWX1NO
dh7u/nqC5Rfy2S/ks1/4Dme/cB/YL9wH9gt3hv3C3NgvzJ/9wvzZL/y9w37h
3rJfuLfsF/LZL+SzX3gu+4X7wH7hPrNfuDPsF+bGfmH+7Bfmz37hTrJfuLfs
F+4t+/V/QuSOOA==
     "], 0.53]}, 
   {RGBColor[0.313725, 0.815686, 0.313725], 
    SphereBox[{{0., 4.514879105062873, 3.68}, {-7.819999999999999, 
     18.05951642025149, 3.68}, {7.819999999999999, 4.514879105062873, 3.68}, {
     3.9099999999999984`, 11.287197762657184`, 3.68}, {11.730000000000002`, 
     11.287197762657184`, 3.68}, {7.820000000000004, 18.05951642025149, 
     3.68}, {23.460000000000004`, 4.514879105062873, 3.68}, {
     19.550000000000004`, 11.287197762657184`, 3.68}, {15.640000000000004`, 
     18.05951642025149, 3.68}}, 1.49]}, 
   {RGBColor[0.878431, 0.4, 0.2], 
    SphereBox[{{-3.910000000000001, 11.287197762657184`, 3.68}, {0., 
     18.05951642025149, 3.68}, {15.640000000000004`, 4.514879105062873, 
     3.68}}, 1.56]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->Above,
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.761459890183504*^9, 3.7614599006309*^9}, {
   3.765792297905529*^9, 3.765792305154232*^9}, {3.765792374879332*^9, 
   3.765792393409051*^9}, 3.78248720240513*^9, {3.782487832080269*^9, 
   3.782487877638777*^9}, 3.7824879122945337`*^9, {3.7824892530800543`*^9, 
   3.782489309214851*^9}, {3.787898165178329*^9, 3.787898194834424*^9}, {
   3.787909068263307*^9, 3.7879090974914017`*^9}},
 CellLabel->"Out[4]=",
 CellID->620935931,ExpressionUUID->"7617ad0c-ffca-4576-9794-4b0ae24e3673"]
}, Open  ]],

Cell[TextData[{
 "The special label ",
 Cell[BoxData["\<\"Void\"\>"], "InlineFormula",ExpressionUUID->
  "311c0b35-73d8-4a64-9493-0680c20c7a11"],
 " may be used to create vacancies:"
}], "ExampleText",
 CellChangeTimes->{{3.765792327228022*^9, 3.765792349682988*^9}},
 CellID->905425084,ExpressionUUID->"998e53e8-0b82-40fa-b1f8-9d9700a33cdc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{
   RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.75", ",", "0.25"}], "}"}], "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Ni\>\"", ",", "\"\<Void\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        RowBox[{"2", "/", "3"}], ",", "0.5"}], "}"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ExpandCrystal", "[", 
      RowBox[{"\"\<Ice\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<NickelIce\>\""}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<None\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7613662040446253`*^9, 3.761366213105555*^9}, {
   3.761366295297138*^9, 3.761366297367734*^9}, {3.761416754258588*^9, 
   3.761416789313998*^9}, {3.7614168880948477`*^9, 3.7614168899571333`*^9}, {
   3.761416996797711*^9, 3.761417078170259*^9}, {3.761417139514247*^9, 
   3.761417164326576*^9}, {3.761417697323944*^9, 3.7614177050746098`*^9}, {
   3.7614177375334997`*^9, 3.761417740898967*^9}, {3.7614177910275908`*^9, 
   3.761417805472424*^9}, {3.761417921416511*^9, 3.761417923981391*^9}, {
   3.7614179809498158`*^9, 3.76141804076296*^9}, {3.761418100835869*^9, 
   3.7614181177218523`*^9}, {3.7614232133937397`*^9, 3.761423214743527*^9}, {
   3.761459739194708*^9, 3.761459746537777*^9}, {3.761459807624421*^9, 
   3.761459808253531*^9}, {3.765792358631454*^9, 3.7657923591410027`*^9}, 
   3.774171673326273*^9, {3.787898367115848*^9, 3.787898367268585*^9}},
 CellLabel->"In[5]:=",
 CellID->1958277478,ExpressionUUID->"1a5a43b1-2634-4cca-b151-ba48f18f1f22"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxllk1IVGEYhSdToR+YUQYLBaFhktEkRU1SZ5i7CVpEUCG0sJTBQFc5Ki5K
hCAhCiqIFgotwlUgKAhCETUpREaBYSkN/UdUm6Aoito0l/udO9znE9wcXt55
53vOcM6uzOmjp0pCodBs4X9z4b/vzeO54XypEzJ/2dTWjZmh12lP/3l/bfLl
wa5wiSN95/D1u6OF+QOV3eFUuBJ61N9zdelXoudKxDHzOc1LN/vT2i99taxv
ZazwuXtfPFjIV9X4+1OJ5sWRfDS3/dCOxmQ45us95s7bI5feb7tW5+tmT1p7
tH+u/sJARUV1TvPSq82d2h+8P5rz9uzx9w89ae/bnY7lZtr/TN6abvL1pLkz
0bR4IxlucYLvWerv0f6Gp5mO0Xzcn5c+b+7Ufukns4Mf3c/90PusPH6kzd//
/G0sEynMS9e8925xi6/Z75BvvXePxdd7twaLr/m+DvlmvfdxyHfdu9Mh3yrj
K/I1vBzyPeG9g0O+/cZX5Gv845Bvv/E/+cr/5Bs1d5JvlfE/+cr/5Dtg7iTf
R8b/5Gv0NPl6Pmyx+I5PnrvXO9to8f1cu3rTnSdfz4dtFt+l892fIgXu5Hux
tnPfxPdmi+/ld4e73M8lX+Nzi6/uJN9N2bUxdz/5mt+dQ766k3yTxv/kK/+T
r+4k33njf/KV/8lXd5Kv+Z065Gt+1w75et+r0+IbOdvbX5Not/h2bHyrqyjM
k6/3zkmL78KZld8jBe7k+2r9+J3B5f0W36nEw5j7ueQrX5Gv7iTfY/U//rn7
yVe+Il/dSb7yP/nKV+SrO8lX/idf+Yp8dSf5yv/kKz+Tb6Z14mv535TFsaz1
y7jLi1zEl+8sXnw3vT/fQe/J78Ucn55y/2qsHJfOHA/qxV6x7K5f2uKwV0hn
r5DOHNd+5rh05rh09grtZ6+Qzl4RvL+Y49rPHJfOHA++Z7FXaD97hXT2CunM
fe1nT9A8c1zzzHHpzHHp7BXaz14hnb1COnNc+5njwc8t5rh09grtZ68IvkOx
VwTnizlO/5Mvczx4f7FX0P/ky14hnbmv/ewJmmeOa545Lp05Lp29QvvZK6Sz
V0hnjgf3F3Ocd5Ive0Xw+8YtvuwVQX82WHyZ47yTfNkr6H/yZa+QztzXfvaE
4PdKWnyZ49KZ48F37rT4sldIZ6+Qzhynr8iXOS6dvYK+Il/2CvqffJnjvJN8
2SvoK/Jlr6D/yZc9QfPMfc2zJ2ieua959gTNM/c1z56g+f/FZ6gL
     "], 0.48]}, 
   {RGBColor[0.65, 0.7, 0.7], SphereBox[CompressedData["
1:eJxll3tQ1WUaxw+KYFDCQUQiLwjEHEC5CAc5Ap130NUuiLaukl2UyHaiDVzU
UdYUvGHrRk4tYnnvtlvmrpctbSMGTjUZXrbV1SjOFqKUpe5qEpXltO1h3uf7
zvh9/ceZZ555fs95Ps/n+f0YU77glw8PcDgcBUEOx8DA/2VdR/Yu9Acrh/z7
KnPe3JUr+rw63td2sr7z9vyIAQrx2IVNLYsD+b+ImhVRGBFF8WhTp/fCiIF/
+3ioknwf8hGX+l7UR/z4oLLDSwLPTf/ondf9MbeY+oWuzIOL/NG+G4uHjy2I
SDDx+6XPtxY9eSa8MdnEpY4XdVB/b8rvH3E643zIRzxO+kT96/uP9uk6aab+
b4/llt3qTfC9lHu1fteWDBMvkD5dGQe3F0SMV9fPM9jUQf3Uf5R7FvuTTD7i
+6RP1Ed8bnVFT/9zz847EZJ0d46pf+p0QnlkIB9x5Ou5JVl8pb5ivim6H4uv
nluqxVd+r2K+1Xo+ivl26D4V842RvWK+wksx3wf0HBTznS97xXxlfxTznS/7
z3yx/8w3WvpkvjGy/8wX+898H5E+mW+77D/zlbiX+eo9HG/xXV6/qnXeX8Za
fL8cdfyF/nzmq/cwx+L77tpZX0QGuDPfP4ya6K69kmnx3dBdkt//XOYre27x
RZ/MN6j65JL++sxXvFPMF30y3wLZf+aL/We+6JP57pP9Z77Yf+aLPpmveKqY
r3itmK/+XRMtvpGPz5t/iyvX4uv5+FKyM5DPfPWcCyy+ry87/P2iAHfm+2nH
Pc0V7+VZfDe7DiX0P5f5Yq+YL/pkvjNTeq/112e+2Cvmiz6ZL/af+WKvmC/6
ZL7Yf+aLvWK+6JP5Yv+ZL/aZ+ZZn154P+bHQ4jgo+6vl/byYC/jynMGL54b5
8xwwT/5dfesL7mj+dbjZk2e2nglZXtvu1fFrbX/OPbf3UnOoQnzatk8vz9gY
pA4s2v7moYVDKO40dVJLa5598uoQJfk+5CMu9b2oj/jzzb1zdoSeNt8DqD+m
sWFb/YoYn6rxD0pZlqi4z7VT20NHu2418ad1HfM9gPpHWtNW/1wZ60M+4iXS
J+pfH3ea9zjq9wQ9PHNPZKLvsf2fZRxdnWn1edPmU5mH5mSZ+Hd6zqYO6r/5
bM6Ui4OTTD7ix6RP1Ef8dyE3/TR0W7x576P+zgP/Ts8pHWniyNf9JFt8j+r6
ivlKPxZfPTeXxTdB/17FfM/q+Sjmu0P3qZivzF8xX+GlmG+NnoNivldlr5iv
cFHMF/vPfKVOG/Mtlj6Zb7HsP/OVfIvv19In88X+M9+Vss/MV+9htsU3bMbM
ox3+NIvvuGCP68GOLIuv5p5j8XU3r/lk89lUi+9kz4k9RfdmWXwX37V7TPX0
dIvv32WvmO8N0ifz3ZD/pzXfjs60+Ip3ivnmSp/MN0H2n/lir5gv9p/5Yv+Z
L/af+aJPi6/sP/PFPjNfPf+JFt/SsvYLs9vcFt+6ltK/Fr/qsfjqOedbfB9r
KqvOm+S2+G66cjk7fazH4nvj3L5hL/+Qa/FNl71ivrOlT+bb/c17g89cmWDx
xV4x30rpk/li/5kv9or5ok/mi/1nvth/5os+mS/2n/lin5nvrtgvFxQ9U2hx
bJ1W913isEKLy0rhy3MGL54b5s9zAHf+XQ3D3M+tWxWjqoq6nVPfOectKY+8
x/PGCNVzc07f9KedyvVu2G0NziiFeK/csa7U/0zb9MZVk7+zsWtC65JrbaeP
1Z/Yf1usSnsipvPD78PVpcZHd274oKstLLnq4rawASaO74qlR6bEHzgfbeJ4
T6E+4ksD3ZY0BJk+ET+y4SnVUhVu+kQc73fUR587dJ9e9Il4n+7Tiz4Rf17y
l3/2U9PAyyNN3LFR5+++61xN9sZkE8dzv1mwI9HxYryJy5x9oSdeKjr0Worp
U+bsi1vcsjF6SIKJ4330r+nBF6Y6XPy7FOojLn22oU/Eu2X+6JPm7EN99LlM
z9n0ibjM2fTJ+bM6TyddXj3Wyh+z9aGK44HvT8Tx3PX31q2oHJdu4rGTAoJF
Jfr++UDRhzdvzTZ9Tn4/r27olnjf/rnbL63anGHicod97u29L/jfH2/i+D5E
fcSfkvmjT54/+kRc3l+mPvosK1iz7n8VsaZPxG/IW5vqvm+k6RPxR6+Vzt7y
earl16YVpcE//8Zl+YX3CPslz1Xs12D9XMV+HZT3GvuF7wT2a3X/4QhJsvwq
PVUWt64u2fIrXt6D7NdwzVGxX5M0R8V+CXfFfgl3xX7h/ct+LZH7wH61y31g
v9rlzrBf+G5hvx6U+bNf4TJ/9gvfe+zXerm37NdZubfsF+4z+/W55LNf+B5m
v3Af2C+5Y23s1+1yZ9gv+TtFsV81Mn/265jMn/2aIXeS/XpO7i37JXfMy36F
HrxzX95kt+XXiKV3hl4MzbH8miTvcfbr1JC6aR2fpFl+7Wqo21l9d7rlF74r
2C+8f9mvxp6S82UfZVl+1SZM/+MeZ7blF75D2K+uOW//t+i+LMuvvri3J387
KtPyC/nsF/LZLzyX/cJ9YL9wH9gvfI+xX5gb+4X5s1+vyfzZL9xJ9gv3lv1q
knvLfiGf/UI++4Xnsl+4z+xXmNwH9gt/d7BfmBv7hfmzX5g/+4U7yX7h3rJf
uM/s15yqCndSTKHlV1VGRUNHZ77lV5N8l7JfLd6u3bNb3ZZfr9R2/erlH3Mt
v/Ddy369Kt/P7NcXWyuril/xWH4d91cO39Iz0fILf1+wX5lR/oXp4zyWX1NO
dh7u/nqC5Rfy2S/ks1/4Dme/cB/YL9wH9gt3hv3C3NgvzJ/9wvzZL/y9w37h
3rJfuLfsF/LZL+SzX3gu+4X7wH7hPrNfuDPsF+bGfmH+7Bfmz37hTrJfuLfs
F+4t+/V/QuSOOA==
     "], 0.53]}, 
   {RGBColor[0.313725, 0.815686, 0.313725], 
    SphereBox[{{-3.910000000000001, 11.287197762657184`, 3.68}, {
     7.819999999999999, 4.514879105062873, 3.68}, {3.9099999999999984`, 
     11.287197762657184`, 3.68}, {0., 18.05951642025149, 3.68}, {
     15.640000000000004`, 4.514879105062873, 3.68}, {7.820000000000004, 
     18.05951642025149, 3.68}, {23.460000000000004`, 4.514879105062873, 
     3.68}, {15.640000000000004`, 18.05951642025149, 3.68}}, 1.49]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->Above,
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.765792359784059*^9, 3.765792393761868*^9}, {
   3.782489323507082*^9, 3.782489329205462*^9}, 3.787898370686097*^9},
 CellLabel->"Out[5]=",
 CellID->1554713746,ExpressionUUID->"f2ca0ece-e748-4de1-b5cb-9b5c57c68039"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "40695e45-c7e6-4219-83b9-41263c139854"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->2052281161,ExpressionUUID->"bf716a5e-4ee8-49f9-b75e-25ccd5e64668"],

Cell["\<\
The units to be embedded can be placed according to coordinate patterns.\
\>", "ExampleText",
 CellChangeTimes->{{3.76210714238245*^9, 3.762107208723503*^9}},
 CellID->54428597,ExpressionUUID->"ad203a14-b89a-4705-8ae8-c046d7237a7d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{
   RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
         RowBox[{"OddQ", "@", 
          RowBox[{"IntegerPart", "[", 
           RowBox[{"x", "+", "y"}], "]"}]}]}], "\[Rule]", "\"\<Ni\>\""}], ",",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", "True"}], 
        "\[Rule]", "\"\<Fe\>\""}]}], "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        RowBox[{"2", "/", "3"}], ",", "0.5"}], "}"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ExpandCrystal", "[", 
      RowBox[{"\"\<Ice\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "4", ",", "1"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "\"\<NewLabel\>\"", "\[Rule]", "\"\<AlternatingNickelIce\>\""}]}], "]"}],
    ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<None\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.76210722003692*^9, 3.762107314121717*^9}, {
   3.762107344676037*^9, 3.762107399375704*^9}, {3.762107490151751*^9, 
   3.76210769258531*^9}, 3.774171687272314*^9, {3.7878983860601254`*^9, 
   3.787898388075428*^9}},
 CellLabel->"In[1]:=",
 CellID->1126111909,ExpressionUUID->"0572381f-c9f9-4ffe-a717-97542dbb5bd7"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJx1l1toVFcUhicaAzWFSWSIYiBgmMpkKioao8lJmE1AEBFBi9IHa0KIoE8m
JvqgIggGgoINhCIKUoqlYhEUBMELdYw0XlCw9YZDq7ZVtLQUvNFaX5zD2f85
7G8neQn8LNZZZ+9vzeGb07N17aYpqVQqU5FKTS3/735049S2UqVJ2b/+jukP
jvX9WojyN5fuDD1cEaSnGOWztn11cbBcv3zGunRHegbyTNxnZOxtbsOXNcbW
F1Wv3PYvqL/y29O6r+8oP3f+vctnSnX1cf+O3MKzA6VM8eNVM+e1pxvjfIOd
89zAgd+qR+fGue1TUB/1P9U0vLm2dnZR9cpn2znV350/U4z6fBr377vZ0v1J
obF4rOW/oRNHFsR5u50zt+Ds0fb0IuOeZ2XcR/3zt3paB0vZuF75aTun+ivf
2L/lj/C5v3f9VJVd0xz3H9u37llNbb54dOTvrdWjLd6cA99+t/L13WVxfvdx
Y09Nub/6qP/uob0/dJ2cF9dzTvV358zb9wpwDtk4V310j1mPN/u+hrw1Rc/1
eIvuMe/xZs/fkLf+6BwMebsfnYMhb3WWc/Jm+THk7YvoXgx567WckzfLsyFv
vXYfyZv2kbxl7Jzkrc7uI3nTPpK3zXZO8nbN7iN5E+fkzfa5RN5snwJ5E+fk
zb6Xx1uds48Jb73OfiW8Rfwv8niznHu8PW+4/U1YT94i/ps93uzeebztb2hb
suflQo+3g09WB+FzyZvdL483zUneKvrv7Aj7kze774a8aU7yZvfU4037SN40
J3mzvwMeb9pH8qY5yZv9XTLkTd8d8qY5yZv9nTTkTd8d8qY5yVu3s48B5skY
8hadc5vHW82urt76XIvHW+uDf+bWluvJW3Tv7R5vZ3Ze/3egzCF5++X+5+e3
XFnm8XY4N94YPpe8iXPypjnJ22dNr96H/cmbOCdvmpO8aR/Jmzgnb5qTvGkf
yZs4J2+ak7xpH8mbOCdvmpO8aR/Jmzgnb5qTvLn7GEyyXwHey3i89Sze82fV
/x0eb+NXq9aH9eQtOudOj7dpi1/sDjkkb4euXvj6+5XG4+2vJ0+Ph88lb+Kc
vGlO8vZz33Ax7E/exDl505zkTftI3sQ5edOc5E37SN7EOXnTnORN+0jexDl5
05zkTftI3sQ5edOc5M3dx2CS/Up4K21fvfTds06Pq5Pbp+4N+SEnP1reeO/i
h/coHngvul+es+6L56bz5znQU44cDv/qPU9RTk9x88SbroTtxz4y9Cbl9Cbl
9BT1p6cop6copzepP71JOb3JnT/xFPWnpyinp7jnmXiT+tOblNOblNNT1J+e
wjnFg3J6k/rTmzin+rtzJl7jnkPiQaqnp6ienqKcnqKc3qT+9Cbl9Cbl9BT1
p6e4z008RTm9Sf3pTe45JN7k1ieewn0kb/QUd/7Em7iP5I3epJyeQs7JGz1F
Ob2JnJM3epNyeo3604NUT09RPT1FOT1FOb1J/elNyulNyukpbv/EUzgneaM3
ue+b9XijN7n7kvd4o6dwTvJGb+I+kjd6k3J6Cr875I2eopzexO8OeaM3ufWJ
1/B7R97oKaqnpyinp7j33ubxRm9STm9STk8h5+SNnqKc3kTOyRu9iftI3ugp
nJO80ZvIOXmjN3EfyRs9hXOSN3oTOSdv9KaJ9zGYZL8CvFenxxs9RTk9xT1n
4/FGb1JOb1JOTyHn5I2eopzeRM7JG72J+0je6Cmck7zRm8g5eaM3cR/JGz2F
c5I3ehM5J2/0pon3MZhkvxLe6DWqpwepnl6jenqQ6uk1qqcHqZ5eo3p6kOo/
AOQMBHU=
     "], 0.48]}, 
   {RGBColor[0.65, 0.7, 0.7], SphereBox[CompressedData["
1:eJx1mHl0zlcax2NLVCxJRMROpDkRRCKLxCve65VBldCxBB2EYY60ErUUoyRi
rQq170s7NfaxTEsNIW859oxSS5sMEYJaOhSpWmo6ef2e7815v/fwR5zznHue
3/M+9/N87u/+mgwd9cfh5T08PCqW/qlQ+n9K4amdYwoqKg/5dzti8KCpU0rs
Vrwk9/zM/C62GuUV4oFjluaMK13/B78+NRJq+FHcX+d5dLd+hX9+X1PJeifW
Iy757ciP+NlKKSfHlz43/OI3XxYE1NP5E0Ij9o4t8HdW7Va7RbsaQTr+J6nz
X2PnXvNeHKLjkseOPMi/s9nHI3x96zqxHvG6Uifyu9fv77TyNNf5P8iLTXnT
HuT8IvbpzC2rWul4O6kztNXete1qtFbu/ayo8yB/2L+Hxo8rCNbrEd8ldSI/
4oNGpxa7nnt98DnP4Heidf7DM/rc9PENc65d8NMo78WxRp1jN2zs+vhCnI5f
uBo01Kc0P/Ig/+SZWYcGb2+h13OdyO9eZ5j8Lhv1IVjHsd7ax2CDN/m9inlr
Zj3X4M3axzCDN+m/Yt5GW31QzNslqw+KeQsQzpk34UcxbwOtfVHM2zDhnHkT
nhXzNkzmkXnDPDJv/lIn8xYg88i8YR6ZtxFSJ/N2QuaReQPnzJvkyWXeJI+d
eQPnzJv8LoO3ALd5LONtmNt8lfFm8d/a4E04N3j7seHZz13rmTeL/2iDN5k7
g7dPGraNyXgYYfA2vyjJ5nou8ybzZfCGOpm3cqPPj3flZ95k3hXzhjqZN5lT
gzfMI/OGOpk38YDBG+aReUOdzJt4STFvOHeYN9TJvIknFfOGc4d5Q53MW4rb
PNqoHn/FvFl9bmvw5vPR4GH1QmMN3uK/vx/iW7qeebP2vZ3B25eTTv46tpRD
5u3ypX77U4/EGbytDD0W5Hou8wbOmTfUybz1avbohSs/8wbOmTfUybxhHpk3
cM68oU7mDfPIvIFz5g11Mm+YR+YNnDNvqJN5wzwyb+CceUOdzJv7PNpeM182
+l3K4G1oVMYdz+cJBm/Hjnv2da1n3qw+OwzeKkXdnuzikHlbfvzA+q1dlcHb
vaIbm1zPZd7AOfOGOpm37z742OnKz7yBc+YNdTJvmEfmDZwzb6iTecM8Mm/g
nHlDncwb5pF5A+fMG+pk3jCPzBs4Z95QJ/PmPo+218xXGW8FHya1eXbTYXC1
/cMKWS5+mJOjwhvvO/jhfQQPvC/YX+4z9ov7hv5zH0rmtHtr/1+8NecLV1/z
nJxxwm7FX+RujL218/5+L4V49zWXH/RcUk7tGbv262NjqlPcV+cJS564fO7T
6krWO7EecclvR37EP9v/qP86r6v6voP8TRZnr5k5JcCpJhZUajapqeI6Z3Q+
4dUo9E0dX2Dl0fcd5D91qPm039MCnViPeJLUifzucV99T0H+4nLDe+3waeoc
uftKq9PTIow6q628EHGsf6SOP7H6rPMg/9fLozvdqxys1yOeJ3UiP+J/9az2
suaaxvqegvwx+6f/sPJ6mHNfyJnLWV3a6Ph1qbN/9aNXJjeK0/H1e/4THp3c
QOdB/jd69jp9qaC5Xo/4PqkT+RE//arOUP2eifxBr/oQouNYb/UnxODNyhOo
mDfpj8GbtY+hBm/WcwMU8yZ9UMzbOqsPinkTHhTzJvwo5m2itS+KeXsqnDNv
woli3jCPzJvkyWXeukmdzFs3mUfmTdYbvP0sdTJvmEfmTfps8IY6mbepMo/M
G+aReespdTJv7vNoo+d6G7xZcxpl8FbF4tzgrWXF+NAhlyIN3iwOow3eZO4M
3hLjz+1wDIg0eBv39rYmo3uEG7zJfBm8yTwavM23/X36L40iDN7ES4p5i5U6
mTeZU4M3cM68YR6ZN8wj84Z5ZN5Qp8GbzCPzBs6ZN9TJvGEemTfMI/OGOpm3
p27zaHvNfJXxZvHQ1uAtOeXE3b65MQZvmTnJ/+i2Od7gzdp3m8HbyKUpo+M6
xhi8LXv4ICq8RbzBW9VBJbU2PIs1eAsXzpm3vlIn81b0+Ejlaw/bGLyBc+Yt
Tepk3jCPzBs4Z95QJ/OGeWTeMI/MG+pk3jCPzBs4Z95QJ/OGeWTewDnzhjqZ
N/d5tL1mvsp46/jqd3UweNsS+OMox8IEg7fUtrY69Q8qgzerzx0M3g51z3zS
tFaCwdvj3rMvV81UBm8DA2qu/vR0e4O3qcI587ZV6mTeorZfn5d3xG7wBs6Z
N9TJvEXLPDJv4Jx5Q53MWxWZR+YN88i8LZE6mTdvmUfmDZwzb/2kTubtmswj
8wbOmTfUybxdd5vHMt72uc1XGW9Tbk97vmy3w+CqcoVvD84e6zA4AW/Ge7vw
w/u4WXjgfcH+cp+xX9w3cMJ9yK4Vs2JWVoBKdxT5dv7mlj1pqE+/+K/qq+I6
0SU9Fviq0MNV2mf7+inEH8l5URj2U/dlXz3V69cvLmxzaPyL3Kt5M8/tbh+o
ms8OyD/zq7e6v/i99fOPF+ZWCUm/t6ZKeR3HvWnCqU6N99zx13G89yI/4hNK
q03KLqfrRPzU/HkqJ91b14k47i/IjzrXWXXaUSfiJVaddtSJ+GeyfvKVl0sr
PGig4x5LrPXb3r41MWpJiI7juY9HrWvq8bfGOi59dnqd+8JxbGszXaf02Vl3
XM4S/+pBOo73xu96VLzb2SOUf5dCfsSlzlzUiXiR9B91Up+dyI86J1l91nUi
Ln3WdfL6PvlXgx9Ma2Gsb7L6z6lnS+/jiOO5cwZkTklrGa7jgS5x+zV1fjvQ
cabO6ihdZ+LRuMyaqxo7dw9aez9rZSsdx/t2zNpHnxccba3juP8iP+LzpP+o
k/uPOhHH/Q75UWdKu+mz/pcaqOtE/I24GWEx7zbQdSI+RNY/GZJiD/eKMdaP
9OkdMPtinI7juQuCdr2fdrls/XsvkvuuuhHmrHe+9UdnU9rqOpdNSa74+/uh
zg3B9g0TFsWW/S6552b5FSctnBuv47iPIz/i6D/q5P6jTsTlvqDzo85proPE
M1jXiXjyhZS6szJDdJ30uwz/yO8y/IP3B/aP7Iti/1S2+qzYP3vlfYb9g3sQ
+0d+l+Ef+V2GfxrL+zP7p7bVZ8X+6Wj1WbF/ZF8U+0f2RbF/8N7O/hkv/mT/
nBB/sn9OiIfZP7iXsX+Ec8X+8Zb+s39wv2b/zJHziP1zXc4j9g/OL/bPDVnP
/sF9h/0Df7J/xPO57J8u4mH2j3ynUuyfidJ/9k+e9J/9g/s++2eFnEfsH/G8
nf2D84v9g/OL/YPvIewfnF/sH+mz4R+PTywPs3/kdyn2D/rP/sH5xf7B90D2
z2Q5j9g/0mfDP157u+6KS4wx/FN/Qleve17Rhn86yvsk++dC9czul35obvhn
S3bm+tHvhBv+wfst+wfv4eyfxcVJd1IuRhr+yQjqsWiHb5ThH9yn2D+F/Q/8
1/FupOGfkroHEn9pGGH4B+vZP1jP/sFz2T/wJ/sH/mT/4F7J/kHf2D/oP/tn
q/Sf/YNzhP2D84j9s1TOI/YP1rN/sJ79g+eyf3B+sX+qiD/ZP7iPs3/QN/YP
+s/+Qf/ZPzhH2D84j9g/OL/YP1jP/sF69g+ey/6BP9k/8Cf7B9/B2D/oG/sH
/Wf/oP/sH5wj7B+cR+wfnF/sn/7pqTHBAQmGf9JbpWZfyrcZ/lkq9zj2T469
cFvfQzGGfzZlFPbe8DzW8A/uiewf3DfZPzdXp6V32xRv+OdsQVrtVcVtDf/g
exf7J8KvYEx4y3jDP53O558s+rmN4R+sZ/9gPfsH93r2D/zJ/oE/2T/wMPsH
fWP/oP/sH/Sf/YPvEuwfnEfsH5xH7B+sZ/9gPfsHz2X/wJ/sH5xf7B94mP2D
vrF/0H/2D/rP/sE5wv7BecT+wXnE/sF69g/Ws3/wXPYP/Mn+gT/ZP/Aw+wd9
Y/+g/+wf9J/9g3OE/YPziP2D84j907dm4hWvcQ7DP6++b1/sYPgH36nYP9We
/hbhWJBg+OdZ7Mv8T/PaG/4ZId/B2D/4nsb+qR927NnqHGX4Z+Fbnc4cHtDB
8E+ufB9j/6jhv73ILq2f/eM6XvIO2w3/OGQ9+2eFrGf/OOW57J8b4k/2D/zJ
/oGH2T/4fsj+qSH9Z/88l/6zf/A9kP3TT84j9g/OI/bPAFnP/sF69g+ey/45
IP5k/2wUf7J/MsTD7B/0jf1zS/rP/kH/2T84R9g/reQ8Yv8kynnE/omU9ewf
nF/sn3R5LvtnkfiT/QN/sn/gYfYPzi/2z0HpP/tns/Sf/YNzhP3jKecR+wfn
Efvn/5Zsp8c=
     "], 0.53]}, 
   {RGBColor[0.313725, 0.815686, 0.313725], 
    SphereBox[{{0., 4.514879105062873, 3.68}, {-7.819999999999999, 
     18.05951642025149, 3.68}, {3.9099999999999984`, 11.287197762657184`, 
     3.68}, {-3.91, 24.831835077845803`, 3.68}, {15.640000000000004`, 
     4.514879105062873, 3.68}, {7.820000000000004, 18.05951642025149, 3.68}, {
     19.550000000000004`, 11.287197762657184`, 3.68}, {11.730000000000004`, 
     24.831835077845803`, 3.68}, {31.279999999999998`, 4.514879105062873, 
     3.68}, {23.459999999999997`, 18.05951642025149, 3.68}}, 1.49]}, 
   {RGBColor[0.878431, 0.4, 0.2], 
    SphereBox[{{-3.910000000000001, 11.287197762657184`, 3.68}, {-11.73, 
     24.831835077845803`, 3.68}, {7.819999999999999, 4.514879105062873, 
     3.68}, {0., 18.05951642025149, 3.68}, {11.730000000000002`, 
     11.287197762657184`, 3.68}, {3.9100000000000037`, 24.831835077845803`, 
     3.68}, {23.460000000000004`, 4.514879105062873, 3.68}, {
     15.640000000000004`, 18.05951642025149, 3.68}, {27.369999999999997`, 
     11.287197762657184`, 3.68}, {19.549999999999997`, 24.831835077845803`, 
     3.68}}, 1.56]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->Above,
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{
  3.762107596973612*^9, {3.762107627022827*^9, 3.7621077044341307`*^9}, 
   3.762624430939178*^9, 3.782489398558132*^9, 3.787898390930588*^9},
 CellLabel->"Out[1]=",
 CellID->1452117807,ExpressionUUID->"9a9536fc-80cc-4846-923e-728e3490a31e"]
}, Open  ]],

Cell["\<\
Distortions and rotations can also be performed according to user specified \
conditions:\
\>", "ExampleText",
 CellChangeTimes->{{3.7629319391538363`*^9, 3.762931961295333*^9}},
 CellID->1049835416,ExpressionUUID->"b19ce777-1566-4aa7-a1d5-362678313ae2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{
   RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
         RowBox[{"OddQ", "@", 
          RowBox[{"IntegerPart", "[", 
           RowBox[{"x", "+", "y"}], "]"}]}]}], "\[Rule]", "\"\<Ni\>\""}], ",",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", "True"}], 
        "\[Rule]", "\"\<Fe\>\""}]}], "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        RowBox[{"2", "/", "3"}], ",", "0.5"}], "}"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ExpandCrystal", "[", 
      RowBox[{"\"\<Ice\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "4", ",", "1"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<AlternatingNickelIce\>\""}], 
     ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"\"\<Distortions\>\"", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
         RowBox[{
          RowBox[{"x", ">", "1"}], "&&", 
          RowBox[{"y", ">", "2"}]}]}], "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "8"}], "}"}]}], "\[IndentingNewLine]", 
       "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<None\>\""}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.", ",", 
      RowBox[{"-", "4.4"}], ",", "3."}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.76210722003692*^9, 3.762107314121717*^9}, {
   3.762107344676037*^9, 3.762107399375704*^9}, {3.762107490151751*^9, 
   3.76210769258531*^9}, {3.762928969151245*^9, 3.762928970109078*^9}, {
   3.7629290101569138`*^9, 3.762929012723804*^9}, {3.762929922755747*^9, 
   3.762929943409534*^9}, {3.7629300641913557`*^9, 3.762930090929164*^9}, {
   3.762930212559022*^9, 3.762930272653216*^9}, 3.762931886103462*^9, 
   3.763218925859332*^9, 3.774171690058517*^9, {3.7878983983315477`*^9, 
   3.78789840029145*^9}},
 CellLabel->"In[2]:=",
 CellID->402317813,ExpressionUUID->"d52e9193-3c9c-4ef1-a077-8b9ddd2288f7"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJx1l1toVFcUhicaAzWFSWSIYiBgmMpkKioao8lJmE1AEBFBi9IHa0KIoE8m
JvqgIggGgoINhCIKUoqlYhEUBMELdYw0XlCw9YZDq7ZVtLQUvNFaX5zD2f85
7G8neQn8LNZZZ+9vzeGb07N17aYpqVQqU5FKTS3/735049S2UqVJ2b/+jukP
jvX9WojyN5fuDD1cEaSnGOWztn11cbBcv3zGunRHegbyTNxnZOxtbsOXNcbW
F1Wv3PYvqL/y29O6r+8oP3f+vctnSnX1cf+O3MKzA6VM8eNVM+e1pxvjfIOd
89zAgd+qR+fGue1TUB/1P9U0vLm2dnZR9cpn2znV350/U4z6fBr377vZ0v1J
obF4rOW/oRNHFsR5u50zt+Ds0fb0IuOeZ2XcR/3zt3paB0vZuF75aTun+ivf
2L/lj/C5v3f9VJVd0xz3H9u37llNbb54dOTvrdWjLd6cA99+t/L13WVxfvdx
Y09Nub/6qP/uob0/dJ2cF9dzTvV358zb9wpwDtk4V310j1mPN/u+hrw1Rc/1
eIvuMe/xZs/fkLf+6BwMebsfnYMhb3WWc/Jm+THk7YvoXgx567WckzfLsyFv
vXYfyZv2kbxl7Jzkrc7uI3nTPpK3zXZO8nbN7iN5E+fkzfa5RN5snwJ5E+fk
zb6Xx1uds48Jb73OfiW8Rfwv8niznHu8PW+4/U1YT94i/ps93uzeebztb2hb
suflQo+3g09WB+FzyZvdL483zUneKvrv7Aj7kze774a8aU7yZvfU4037SN40
J3mzvwMeb9pH8qY5yZv9XTLkTd8d8qY5yZv9nTTkTd8d8qY5yVu3s48B5skY
8hadc5vHW82urt76XIvHW+uDf+bWluvJW3Tv7R5vZ3Ze/3egzCF5++X+5+e3
XFnm8XY4N94YPpe8iXPypjnJ22dNr96H/cmbOCdvmpO8aR/Jmzgnb5qTvGkf
yZs4J2+ak7xpH8mbOCdvmpO8aR/Jmzgnb5qTvLn7GEyyXwHey3i89Sze82fV
/x0eb+NXq9aH9eQtOudOj7dpi1/sDjkkb4euXvj6+5XG4+2vJ0+Ph88lb+Kc
vGlO8vZz33Ax7E/exDl505zkTftI3sQ5edOc5E37SN7EOXnTnORN+0jexDl5
05zkTftI3sQ5edOc5M3dx2CS/Up4K21fvfTds06Pq5Pbp+4N+SEnP1reeO/i
h/coHngvul+es+6L56bz5znQU44cDv/qPU9RTk9x88SbroTtxz4y9Cbl9Cbl
9BT1p6cop6copzepP71JOb3JnT/xFPWnpyinp7jnmXiT+tOblNOblNNT1J+e
wjnFg3J6k/rTmzin+rtzJl7jnkPiQaqnp6ienqKcnqKc3qT+9Cbl9Cbl9BT1
p6e4z008RTm9Sf3pTe45JN7k1ieewn0kb/QUd/7Em7iP5I3epJyeQs7JGz1F
Ob2JnJM3epNyeo3604NUT09RPT1FOT1FOb1J/elNyulNyukpbv/EUzgneaM3
ue+b9XijN7n7kvd4o6dwTvJGb+I+kjd6k3J6Cr875I2eopzexO8OeaM3ufWJ
1/B7R97oKaqnpyinp7j33ubxRm9STm9STk8h5+SNnqKc3kTOyRu9iftI3ugp
nJO80ZvIOXmjN3EfyRs9hXOSN3oTOSdv9KaJ9zGYZL8CvFenxxs9RTk9xT1n
4/FGb1JOb1JOTyHn5I2eopzeRM7JG72J+0je6Cmck7zRm8g5eaM3cR/JGz2F
c5I3ehM5J2/0pon3MZhkvxLe6DWqpwepnl6jenqQ6uk1qqcHqZ5eo3p6kOo/
AOQMBHU=
     "], 0.48]}, 
   {RGBColor[0.65, 0.7, 0.7], SphereBox[CompressedData["
1:eJx1mHl0zlcax2NLVCxJRMROpDkRRCKLxCve65VBldCxBB2EYY60ErUUoyRi
rQq170s7NfaxTEsNIW859oxSS5sMEYJaOhSpWmo6ef2e7815v/fwR5zznHue
3/M+9/N87u/+mgwd9cfh5T08PCqW/qlQ+n9K4amdYwoqKg/5dzti8KCpU0rs
Vrwk9/zM/C62GuUV4oFjluaMK13/B78+NRJq+FHcX+d5dLd+hX9+X1PJeifW
Iy757ciP+NlKKSfHlz43/OI3XxYE1NP5E0Ij9o4t8HdW7Va7RbsaQTr+J6nz
X2PnXvNeHKLjkseOPMi/s9nHI3x96zqxHvG6Uifyu9fv77TyNNf5P8iLTXnT
HuT8IvbpzC2rWul4O6kztNXete1qtFbu/ayo8yB/2L+Hxo8rCNbrEd8ldSI/
4oNGpxa7nnt98DnP4Heidf7DM/rc9PENc65d8NMo78WxRp1jN2zs+vhCnI5f
uBo01Kc0P/Ig/+SZWYcGb2+h13OdyO9eZ5j8Lhv1IVjHsd7ax2CDN/m9inlr
Zj3X4M3axzCDN+m/Yt5GW31QzNslqw+KeQsQzpk34UcxbwOtfVHM2zDhnHkT
nhXzNkzmkXnDPDJv/lIn8xYg88i8YR6ZtxFSJ/N2QuaReQPnzJvkyWXeJI+d
eQPnzJv8LoO3ALd5LONtmNt8lfFm8d/a4E04N3j7seHZz13rmTeL/2iDN5k7
g7dPGraNyXgYYfA2vyjJ5nou8ybzZfCGOpm3cqPPj3flZ95k3hXzhjqZN5lT
gzfMI/OGOpk38YDBG+aReUOdzJt4STFvOHeYN9TJvIknFfOGc4d5Q53MW4rb
PNqoHn/FvFl9bmvw5vPR4GH1QmMN3uK/vx/iW7qeebP2vZ3B25eTTv46tpRD
5u3ypX77U4/EGbytDD0W5Hou8wbOmTfUybz1avbohSs/8wbOmTfUybxhHpk3
cM68oU7mDfPIvIFz5g11Mm+YR+YNnDNvqJN5wzwyb+CceUOdzJv7PNpeM182
+l3K4G1oVMYdz+cJBm/Hjnv2da1n3qw+OwzeKkXdnuzikHlbfvzA+q1dlcHb
vaIbm1zPZd7AOfOGOpm37z742OnKz7yBc+YNdTJvmEfmDZwzb6iTecM8Mm/g
nHlDncwb5pF5A+fMG+pk3jCPzBs4Z95QJ/PmPo+218xXGW8FHya1eXbTYXC1
/cMKWS5+mJOjwhvvO/jhfQQPvC/YX+4z9ov7hv5zH0rmtHtr/1+8NecLV1/z
nJxxwm7FX+RujL218/5+L4V49zWXH/RcUk7tGbv262NjqlPcV+cJS564fO7T
6krWO7EecclvR37EP9v/qP86r6v6voP8TRZnr5k5JcCpJhZUajapqeI6Z3Q+
4dUo9E0dX2Dl0fcd5D91qPm039MCnViPeJLUifzucV99T0H+4nLDe+3waeoc
uftKq9PTIow6q628EHGsf6SOP7H6rPMg/9fLozvdqxys1yOeJ3UiP+J/9az2
suaaxvqegvwx+6f/sPJ6mHNfyJnLWV3a6Ph1qbN/9aNXJjeK0/H1e/4THp3c
QOdB/jd69jp9qaC5Xo/4PqkT+RE//arOUP2eifxBr/oQouNYb/UnxODNyhOo
mDfpj8GbtY+hBm/WcwMU8yZ9UMzbOqsPinkTHhTzJvwo5m2itS+KeXsqnDNv
woli3jCPzJvkyWXeukmdzFs3mUfmTdYbvP0sdTJvmEfmTfps8IY6mbepMo/M
G+aReespdTJv7vNoo+d6G7xZcxpl8FbF4tzgrWXF+NAhlyIN3iwOow3eZO4M
3hLjz+1wDIg0eBv39rYmo3uEG7zJfBm8yTwavM23/X36L40iDN7ES4p5i5U6
mTeZU4M3cM68YR6ZN8wj84Z5ZN5Qp8GbzCPzBs6ZN9TJvGEemTfMI/OGOpm3
p27zaHvNfJXxZvHQ1uAtOeXE3b65MQZvmTnJ/+i2Od7gzdp3m8HbyKUpo+M6
xhi8LXv4ICq8RbzBW9VBJbU2PIs1eAsXzpm3vlIn81b0+Ejlaw/bGLyBc+Yt
Tepk3jCPzBs4Z95QJ/OGeWTeMI/MG+pk3jCPzBs4Z95QJ/OGeWTewDnzhjqZ
N/d5tL1mvsp46/jqd3UweNsS+OMox8IEg7fUtrY69Q8qgzerzx0M3g51z3zS
tFaCwdvj3rMvV81UBm8DA2qu/vR0e4O3qcI587ZV6mTeorZfn5d3xG7wBs6Z
N9TJvEXLPDJv4Jx5Q53MWxWZR+YN88i8LZE6mTdvmUfmDZwzb/2kTubtmswj
8wbOmTfUybxdd5vHMt72uc1XGW9Tbk97vmy3w+CqcoVvD84e6zA4AW/Ge7vw
w/u4WXjgfcH+cp+xX9w3cMJ9yK4Vs2JWVoBKdxT5dv7mlj1pqE+/+K/qq+I6
0SU9Fviq0MNV2mf7+inEH8l5URj2U/dlXz3V69cvLmxzaPyL3Kt5M8/tbh+o
ms8OyD/zq7e6v/i99fOPF+ZWCUm/t6ZKeR3HvWnCqU6N99zx13G89yI/4hNK
q03KLqfrRPzU/HkqJ91b14k47i/IjzrXWXXaUSfiJVaddtSJ+GeyfvKVl0sr
PGig4x5LrPXb3r41MWpJiI7juY9HrWvq8bfGOi59dnqd+8JxbGszXaf02Vl3
XM4S/+pBOo73xu96VLzb2SOUf5dCfsSlzlzUiXiR9B91Up+dyI86J1l91nUi
Ln3WdfL6PvlXgx9Ma2Gsb7L6z6lnS+/jiOO5cwZkTklrGa7jgS5x+zV1fjvQ
cabO6ihdZ+LRuMyaqxo7dw9aez9rZSsdx/t2zNpHnxccba3juP8iP+LzpP+o
k/uPOhHH/Q75UWdKu+mz/pcaqOtE/I24GWEx7zbQdSI+RNY/GZJiD/eKMdaP
9OkdMPtinI7juQuCdr2fdrls/XsvkvuuuhHmrHe+9UdnU9rqOpdNSa74+/uh
zg3B9g0TFsWW/S6552b5FSctnBuv47iPIz/i6D/q5P6jTsTlvqDzo85proPE
M1jXiXjyhZS6szJDdJ30uwz/yO8y/IP3B/aP7Iti/1S2+qzYP3vlfYb9g3sQ
+0d+l+Ef+V2GfxrL+zP7p7bVZ8X+6Wj1WbF/ZF8U+0f2RbF/8N7O/hkv/mT/
nBB/sn9OiIfZP7iXsX+Ec8X+8Zb+s39wv2b/zJHziP1zXc4j9g/OL/bPDVnP
/sF9h/0Df7J/xPO57J8u4mH2j3ynUuyfidJ/9k+e9J/9g/s++2eFnEfsH/G8
nf2D84v9g/OL/YPvIewfnF/sH+mz4R+PTywPs3/kdyn2D/rP/sH5xf7B90D2
z2Q5j9g/0mfDP157u+6KS4wx/FN/Qleve17Rhn86yvsk++dC9czul35obvhn
S3bm+tHvhBv+wfst+wfv4eyfxcVJd1IuRhr+yQjqsWiHb5ThH9yn2D+F/Q/8
1/FupOGfkroHEn9pGGH4B+vZP1jP/sFz2T/wJ/sH/mT/4F7J/kHf2D/oP/tn
q/Sf/YNzhP2D84j9s1TOI/YP1rN/sJ79g+eyf3B+sX+qiD/ZP7iPs3/QN/YP
+s/+Qf/ZPzhH2D84j9g/OL/YP1jP/sF69g+ey/6BP9k/8Cf7B9/B2D/oG/sH
/Wf/oP/sH5wj7B+cR+wfnF/sn/7pqTHBAQmGf9JbpWZfyrcZ/lkq9zj2T469
cFvfQzGGfzZlFPbe8DzW8A/uiewf3DfZPzdXp6V32xRv+OdsQVrtVcVtDf/g
exf7J8KvYEx4y3jDP53O558s+rmN4R+sZ/9gPfsH93r2D/zJ/oE/2T/wMPsH
fWP/oP/sH/Sf/YPvEuwfnEfsH5xH7B+sZ/9gPfsHz2X/wJ/sH5xf7B94mP2D
vrF/0H/2D/rP/sE5wv7BecT+wXnE/sF69g/Ws3/wXPYP/Mn+gT/ZP/Aw+wd9
Y/+g/+wf9J/9g3OE/YPziP2D84j907dm4hWvcQ7DP6++b1/sYPgH36nYP9We
/hbhWJBg+OdZ7Mv8T/PaG/4ZId/B2D/4nsb+qR927NnqHGX4Z+Fbnc4cHtDB
8E+ufB9j/6jhv73ILq2f/eM6XvIO2w3/OGQ9+2eFrGf/OOW57J8b4k/2D/zJ
/oGH2T/4fsj+qSH9Z/88l/6zf/A9kP3TT84j9g/OI/bPAFnP/sF69g+ey/45
IP5k/2wUf7J/MsTD7B/0jf1zS/rP/kH/2T84R9g/reQ8Yv8kynnE/omU9ewf
nF/sn3R5LvtnkfiT/QN/sn/gYfYPzi/2z0HpP/tns/Sf/YNzhP3jKecR+wfn
Efvn/5Zsp8c=
     "], 0.53]}, 
   {RGBColor[0.313725, 0.815686, 0.313725], 
    SphereBox[{{0., 4.514879105062873, 3.68}, {-7.819999999999999, 
     18.05951642025149, 3.68}, {3.9099999999999984`, 11.287197762657184`, 
     3.68}, {-3.91, 24.831835077845803`, 11.68}, {15.640000000000004`, 
     4.514879105062873, 3.68}, {7.820000000000004, 18.05951642025149, 
     11.68}, {19.550000000000004`, 11.287197762657184`, 3.68}, {
     11.730000000000004`, 24.831835077845803`, 11.68}, {31.279999999999998`, 
     4.514879105062873, 3.68}, {23.459999999999997`, 18.05951642025149, 
     11.68}}, 1.49]}, 
   {RGBColor[0.878431, 0.4, 0.2], 
    SphereBox[{{-3.910000000000001, 11.287197762657184`, 3.68}, {-11.73, 
     24.831835077845803`, 3.68}, {7.819999999999999, 4.514879105062873, 
     3.68}, {0., 18.05951642025149, 11.68}, {11.730000000000002`, 
     11.287197762657184`, 3.68}, {3.9100000000000037`, 24.831835077845803`, 
     11.68}, {23.460000000000004`, 4.514879105062873, 3.68}, {
     15.640000000000004`, 18.05951642025149, 11.68}, {27.369999999999997`, 
     11.287197762657184`, 3.68}, {19.549999999999997`, 24.831835077845803`, 
     11.68}}, 1.56]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{0., -4.4, 3.},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{
  3.7629302730706797`*^9, 3.762931897194154*^9, {3.763218923570477*^9, 
   3.7632189293025627`*^9}, 3.782489409081752*^9, 3.787898404443557*^9},
 CellLabel->"Out[2]=",
 CellID->1950987225,ExpressionUUID->"6378047e-35ad-4660-ad90-7bf889060ea8"]
}, Open  ]],

Cell["\<\
One can also make the distortions occur randomly, in addition to randomising \
the distortion amplitudes:\
\>", "ExampleText",
 CellChangeTimes->{{3.762932405277646*^9, 3.762932474995933*^9}, {
  3.782489417946596*^9, 3.782489435276553*^9}},
 CellID->1116149821,ExpressionUUID->"27b37186-deac-48a7-8fab-f052b9320939"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{
   RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
         RowBox[{"OddQ", "@", 
          RowBox[{"IntegerPart", "[", 
           RowBox[{"x", "+", "y"}], "]"}]}]}], "\[Rule]", "\"\<Ni\>\""}], ",",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", "True"}], 
        "\[Rule]", "\"\<Fe\>\""}]}], "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        RowBox[{"2", "/", "3"}], ",", "0.5"}], "}"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ExpandCrystal", "[", 
      RowBox[{"\"\<Ice\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "4", ",", "1"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<AlternatingNickelIce\>\""}], 
     ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"\"\<Distortions\>\"", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ">", "0.75"}]}], "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "9"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
       "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<None\>\""}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.", ",", 
      RowBox[{"-", "4.4"}], ",", "1.5"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.76210722003692*^9, 3.762107314121717*^9}, {
   3.762107344676037*^9, 3.762107399375704*^9}, {3.762107490151751*^9, 
   3.76210769258531*^9}, {3.762928969151245*^9, 3.762928970109078*^9}, {
   3.7629290101569138`*^9, 3.762929012723804*^9}, {3.762929922755747*^9, 
   3.762929943409534*^9}, {3.7629300641913557`*^9, 3.762930090929164*^9}, {
   3.762930212559022*^9, 3.762930272653216*^9}, 3.762931886103462*^9, {
   3.762932483150537*^9, 3.762932521974502*^9}, {3.7632189454266367`*^9, 
   3.763218946610372*^9}, 3.774171693305066*^9, {3.787898415251474*^9, 
   3.787898417386838*^9}},
 CellLabel->"In[3]:=",
 CellID->3218086,ExpressionUUID->"7d1de571-884f-4e37-a57b-c5f80fb516c3"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJx1l1toVFcUhicaAzWFSWSIYiBgmMpkKioao8lJmE1AEBFBi9IHa0KIoE8m
JvqgIggGgoINhCIKUoqlYhEUBMELdYw0XlCw9YZDq7ZVtLQUvNFaX5zD2f85
7G8neQn8LNZZZ+9vzeGb07N17aYpqVQqU5FKTS3/735049S2UqVJ2b/+jukP
jvX9WojyN5fuDD1cEaSnGOWztn11cbBcv3zGunRHegbyTNxnZOxtbsOXNcbW
F1Wv3PYvqL/y29O6r+8oP3f+vctnSnX1cf+O3MKzA6VM8eNVM+e1pxvjfIOd
89zAgd+qR+fGue1TUB/1P9U0vLm2dnZR9cpn2znV350/U4z6fBr377vZ0v1J
obF4rOW/oRNHFsR5u50zt+Ds0fb0IuOeZ2XcR/3zt3paB0vZuF75aTun+ivf
2L/lj/C5v3f9VJVd0xz3H9u37llNbb54dOTvrdWjLd6cA99+t/L13WVxfvdx
Y09Nub/6qP/uob0/dJ2cF9dzTvV358zb9wpwDtk4V310j1mPN/u+hrw1Rc/1
eIvuMe/xZs/fkLf+6BwMebsfnYMhb3WWc/Jm+THk7YvoXgx567WckzfLsyFv
vXYfyZv2kbxl7Jzkrc7uI3nTPpK3zXZO8nbN7iN5E+fkzfa5RN5snwJ5E+fk
zb6Xx1uds48Jb73OfiW8Rfwv8niznHu8PW+4/U1YT94i/ps93uzeebztb2hb
suflQo+3g09WB+FzyZvdL483zUneKvrv7Aj7kze774a8aU7yZvfU4037SN40
J3mzvwMeb9pH8qY5yZv9XTLkTd8d8qY5yZv9nTTkTd8d8qY5yVu3s48B5skY
8hadc5vHW82urt76XIvHW+uDf+bWluvJW3Tv7R5vZ3Ze/3egzCF5++X+5+e3
XFnm8XY4N94YPpe8iXPypjnJ22dNr96H/cmbOCdvmpO8aR/Jmzgnb5qTvGkf
yZs4J2+ak7xpH8mbOCdvmpO8aR/Jmzgnb5qTvLn7GEyyXwHey3i89Sze82fV
/x0eb+NXq9aH9eQtOudOj7dpi1/sDjkkb4euXvj6+5XG4+2vJ0+Ph88lb+Kc
vGlO8vZz33Ax7E/exDl505zkTftI3sQ5edOc5E37SN7EOXnTnORN+0jexDl5
05zkTftI3sQ5edOc5M3dx2CS/Up4K21fvfTds06Pq5Pbp+4N+SEnP1reeO/i
h/coHngvul+es+6L56bz5znQU44cDv/qPU9RTk9x88SbroTtxz4y9Cbl9Cbl
9BT1p6cop6copzepP71JOb3JnT/xFPWnpyinp7jnmXiT+tOblNOblNNT1J+e
wjnFg3J6k/rTmzin+rtzJl7jnkPiQaqnp6ienqKcnqKc3qT+9Cbl9Cbl9BT1
p6e4z008RTm9Sf3pTe45JN7k1ieewn0kb/QUd/7Em7iP5I3epJyeQs7JGz1F
Ob2JnJM3epNyeo3604NUT09RPT1FOT1FOb1J/elNyulNyukpbv/EUzgneaM3
ue+b9XijN7n7kvd4o6dwTvJGb+I+kjd6k3J6Cr875I2eopzexO8OeaM3ufWJ
1/B7R97oKaqnpyinp7j33ubxRm9STm9STk8h5+SNnqKc3kTOyRu9iftI3ugp
nJO80ZvIOXmjN3EfyRs9hXOSN3oTOSdv9KaJ9zGYZL8CvFenxxs9RTk9xT1n
4/FGb1JOb1JOTyHn5I2eopzeRM7JG72J+0je6Cmck7zRm8g5eaM3cR/JGz2F
c5I3ehM5J2/0pon3MZhkvxLe6DWqpwepnl6jenqQ6uk1qqcHqZ5eo3p6kOo/
AOQMBHU=
     "], 0.48]}, 
   {RGBColor[0.65, 0.7, 0.7], SphereBox[CompressedData["
1:eJx1mHl0zlcax2NLVCxJRMROpDkRRCKLxCve65VBldCxBB2EYY60ErUUoyRi
rQq170s7NfaxTEsNIW859oxSS5sMEYJaOhSpWmo6ef2e7815v/fwR5zznHue
3/M+9/N87u/+mgwd9cfh5T08PCqW/qlQ+n9K4amdYwoqKg/5dzti8KCpU0rs
Vrwk9/zM/C62GuUV4oFjluaMK13/B78+NRJq+FHcX+d5dLd+hX9+X1PJeifW
Iy757ciP+NlKKSfHlz43/OI3XxYE1NP5E0Ij9o4t8HdW7Va7RbsaQTr+J6nz
X2PnXvNeHKLjkseOPMi/s9nHI3x96zqxHvG6Uifyu9fv77TyNNf5P8iLTXnT
HuT8IvbpzC2rWul4O6kztNXete1qtFbu/ayo8yB/2L+Hxo8rCNbrEd8ldSI/
4oNGpxa7nnt98DnP4Heidf7DM/rc9PENc65d8NMo78WxRp1jN2zs+vhCnI5f
uBo01Kc0P/Ig/+SZWYcGb2+h13OdyO9eZ5j8Lhv1IVjHsd7ax2CDN/m9inlr
Zj3X4M3axzCDN+m/Yt5GW31QzNslqw+KeQsQzpk34UcxbwOtfVHM2zDhnHkT
nhXzNkzmkXnDPDJv/lIn8xYg88i8YR6ZtxFSJ/N2QuaReQPnzJvkyWXeJI+d
eQPnzJv8LoO3ALd5LONtmNt8lfFm8d/a4E04N3j7seHZz13rmTeL/2iDN5k7
g7dPGraNyXgYYfA2vyjJ5nou8ybzZfCGOpm3cqPPj3flZ95k3hXzhjqZN5lT
gzfMI/OGOpk38YDBG+aReUOdzJt4STFvOHeYN9TJvIknFfOGc4d5Q53MW4rb
PNqoHn/FvFl9bmvw5vPR4GH1QmMN3uK/vx/iW7qeebP2vZ3B25eTTv46tpRD
5u3ypX77U4/EGbytDD0W5Hou8wbOmTfUybz1avbohSs/8wbOmTfUybxhHpk3
cM68oU7mDfPIvIFz5g11Mm+YR+YNnDNvqJN5wzwyb+CceUOdzJv7PNpeM182
+l3K4G1oVMYdz+cJBm/Hjnv2da1n3qw+OwzeKkXdnuzikHlbfvzA+q1dlcHb
vaIbm1zPZd7AOfOGOpm37z742OnKz7yBc+YNdTJvmEfmDZwzb6iTecM8Mm/g
nHlDncwb5pF5A+fMG+pk3jCPzBs4Z95QJ/PmPo+218xXGW8FHya1eXbTYXC1
/cMKWS5+mJOjwhvvO/jhfQQPvC/YX+4z9ov7hv5zH0rmtHtr/1+8NecLV1/z
nJxxwm7FX+RujL218/5+L4V49zWXH/RcUk7tGbv262NjqlPcV+cJS564fO7T
6krWO7EecclvR37EP9v/qP86r6v6voP8TRZnr5k5JcCpJhZUajapqeI6Z3Q+
4dUo9E0dX2Dl0fcd5D91qPm039MCnViPeJLUifzucV99T0H+4nLDe+3waeoc
uftKq9PTIow6q628EHGsf6SOP7H6rPMg/9fLozvdqxys1yOeJ3UiP+J/9az2
suaaxvqegvwx+6f/sPJ6mHNfyJnLWV3a6Ph1qbN/9aNXJjeK0/H1e/4THp3c
QOdB/jd69jp9qaC5Xo/4PqkT+RE//arOUP2eifxBr/oQouNYb/UnxODNyhOo
mDfpj8GbtY+hBm/WcwMU8yZ9UMzbOqsPinkTHhTzJvwo5m2itS+KeXsqnDNv
woli3jCPzJvkyWXeukmdzFs3mUfmTdYbvP0sdTJvmEfmTfps8IY6mbepMo/M
G+aReespdTJv7vNoo+d6G7xZcxpl8FbF4tzgrWXF+NAhlyIN3iwOow3eZO4M
3hLjz+1wDIg0eBv39rYmo3uEG7zJfBm8yTwavM23/X36L40iDN7ES4p5i5U6
mTeZU4M3cM68YR6ZN8wj84Z5ZN5Qp8GbzCPzBs6ZN9TJvGEemTfMI/OGOpm3
p27zaHvNfJXxZvHQ1uAtOeXE3b65MQZvmTnJ/+i2Od7gzdp3m8HbyKUpo+M6
xhi8LXv4ICq8RbzBW9VBJbU2PIs1eAsXzpm3vlIn81b0+Ejlaw/bGLyBc+Yt
Tepk3jCPzBs4Z95QJ/OGeWTeMI/MG+pk3jCPzBs4Z95QJ/OGeWTewDnzhjqZ
N/d5tL1mvsp46/jqd3UweNsS+OMox8IEg7fUtrY69Q8qgzerzx0M3g51z3zS
tFaCwdvj3rMvV81UBm8DA2qu/vR0e4O3qcI587ZV6mTeorZfn5d3xG7wBs6Z
N9TJvEXLPDJv4Jx5Q53MWxWZR+YN88i8LZE6mTdvmUfmDZwzb/2kTubtmswj
8wbOmTfUybxdd5vHMt72uc1XGW9Tbk97vmy3w+CqcoVvD84e6zA4AW/Ge7vw
w/u4WXjgfcH+cp+xX9w3cMJ9yK4Vs2JWVoBKdxT5dv7mlj1pqE+/+K/qq+I6
0SU9Fviq0MNV2mf7+inEH8l5URj2U/dlXz3V69cvLmxzaPyL3Kt5M8/tbh+o
ms8OyD/zq7e6v/i99fOPF+ZWCUm/t6ZKeR3HvWnCqU6N99zx13G89yI/4hNK
q03KLqfrRPzU/HkqJ91b14k47i/IjzrXWXXaUSfiJVaddtSJ+GeyfvKVl0sr
PGig4x5LrPXb3r41MWpJiI7juY9HrWvq8bfGOi59dnqd+8JxbGszXaf02Vl3
XM4S/+pBOo73xu96VLzb2SOUf5dCfsSlzlzUiXiR9B91Up+dyI86J1l91nUi
Ln3WdfL6PvlXgx9Ma2Gsb7L6z6lnS+/jiOO5cwZkTklrGa7jgS5x+zV1fjvQ
cabO6ihdZ+LRuMyaqxo7dw9aez9rZSsdx/t2zNpHnxccba3juP8iP+LzpP+o
k/uPOhHH/Q75UWdKu+mz/pcaqOtE/I24GWEx7zbQdSI+RNY/GZJiD/eKMdaP
9OkdMPtinI7juQuCdr2fdrls/XsvkvuuuhHmrHe+9UdnU9rqOpdNSa74+/uh
zg3B9g0TFsWW/S6552b5FSctnBuv47iPIz/i6D/q5P6jTsTlvqDzo85proPE
M1jXiXjyhZS6szJDdJ30uwz/yO8y/IP3B/aP7Iti/1S2+qzYP3vlfYb9g3sQ
+0d+l+Ef+V2GfxrL+zP7p7bVZ8X+6Wj1WbF/ZF8U+0f2RbF/8N7O/hkv/mT/
nBB/sn9OiIfZP7iXsX+Ec8X+8Zb+s39wv2b/zJHziP1zXc4j9g/OL/bPDVnP
/sF9h/0Df7J/xPO57J8u4mH2j3ynUuyfidJ/9k+e9J/9g/s++2eFnEfsH/G8
nf2D84v9g/OL/YPvIewfnF/sH+mz4R+PTywPs3/kdyn2D/rP/sH5xf7B90D2
z2Q5j9g/0mfDP157u+6KS4wx/FN/Qleve17Rhn86yvsk++dC9czul35obvhn
S3bm+tHvhBv+wfst+wfv4eyfxcVJd1IuRhr+yQjqsWiHb5ThH9yn2D+F/Q/8
1/FupOGfkroHEn9pGGH4B+vZP1jP/sFz2T/wJ/sH/mT/4F7J/kHf2D/oP/tn
q/Sf/YNzhP2D84j9s1TOI/YP1rN/sJ79g+eyf3B+sX+qiD/ZP7iPs3/QN/YP
+s/+Qf/ZPzhH2D84j9g/OL/YP1jP/sF69g+ey/6BP9k/8Cf7B9/B2D/oG/sH
/Wf/oP/sH5wj7B+cR+wfnF/sn/7pqTHBAQmGf9JbpWZfyrcZ/lkq9zj2T469
cFvfQzGGfzZlFPbe8DzW8A/uiewf3DfZPzdXp6V32xRv+OdsQVrtVcVtDf/g
exf7J8KvYEx4y3jDP53O558s+rmN4R+sZ/9gPfsH93r2D/zJ/oE/2T/wMPsH
fWP/oP/sH/Sf/YPvEuwfnEfsH5xH7B+sZ/9gPfsHz2X/wJ/sH5xf7B94mP2D
vrF/0H/2D/rP/sE5wv7BecT+wXnE/sF69g/Ws3/wXPYP/Mn+gT/ZP/Aw+wd9
Y/+g/+wf9J/9g3OE/YPziP2D84j907dm4hWvcQ7DP6++b1/sYPgH36nYP9We
/hbhWJBg+OdZ7Mv8T/PaG/4ZId/B2D/4nsb+qR927NnqHGX4Z+Fbnc4cHtDB
8E+ufB9j/6jhv73ILq2f/eM6XvIO2w3/OGQ9+2eFrGf/OOW57J8b4k/2D/zJ
/oGH2T/4fsj+qSH9Z/88l/6zf/A9kP3TT84j9g/OI/bPAFnP/sF69g+ey/45
IP5k/2wUf7J/MsTD7B/0jf1zS/rP/kH/2T84R9g/reQ8Yv8kynnE/omU9ewf
nF/sn3R5LvtnkfiT/QN/sn/gYfYPzi/2z0HpP/tns/Sf/YNzhP3jKecR+wfn
Efvn/5Zsp8c=
     "], 0.53]}, 
   {RGBColor[0.313725, 0.815686, 0.313725], 
    SphereBox[{{0., 4.514879105062873, 3.68}, {-7.819999999999999, 
     18.05951642025149, 11.90331850725797}, {3.9099999999999984`, 
     11.287197762657184`, 3.68}, {-3.91, 24.831835077845803`, 
     10.611495554429283`}, {15.640000000000004`, 4.514879105062873, 3.68}, {
     7.820000000000004, 18.05951642025149, 3.68}, {19.550000000000004`, 
     11.287197762657184`, 3.68}, {11.730000000000004`, 24.831835077845803`, 
     8.814756137849042}, {31.279999999999998`, 4.514879105062873, 
     10.060872735822269`}, {23.459999999999997`, 18.05951642025149, 3.68}}, 
     1.49]}, 
   {RGBColor[0.878431, 0.4, 0.2], 
    SphereBox[{{-3.910000000000001, 11.287197762657184`, 3.68}, {-11.73, 
     24.831835077845803`, 3.68}, {7.819999999999999, 4.514879105062873, 
     8.059209966856228}, {0., 18.05951642025149, 3.68}, {11.730000000000002`, 
     11.287197762657184`, 3.68}, {3.9100000000000037`, 24.831835077845803`, 
     3.68}, {23.460000000000004`, 4.514879105062873, 12.146825352991218`}, {
     15.640000000000004`, 18.05951642025149, 3.68}, {27.369999999999997`, 
     11.287197762657184`, 3.68}, {19.549999999999997`, 24.831835077845803`, 
     3.68}}, 1.56]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{0., -4.4, 1.5},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.782489495270485*^9, 3.7824895013863688`*^9}, 
   3.7878984229458027`*^9},
 CellLabel->"Out[3]=",
 CellID->1466577922,ExpressionUUID->"8392ac91-88d2-438e-b285-d35e33476d17"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"c86a4a1f-28d5-4687-aca8-80753dd44ebd"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "7a6cceec-af03-4f28-b0f8-6a82f30c433c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"a91a0ede-4069-4269-844e-76f3cc71b7c5"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "de9df717-05aa-4429-b03f-ff5a8b575768"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"b8010b5f-ffd1-47e8-a8af-3669d16c9317"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "3bf19ff7-70c1-4b80-900e-d23b346bed47"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"8d64729b-2cdd-49a3-aa9d-dd4255180951"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"MatchHostSize\"", "ExampleSubsection",ExpressionUUID->
   "de898277-e7ed-469d-8610-3df5cfbf5749"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.761459921375218*^9, 3.761459926356452*^9}},
 CellID->1757724783,ExpressionUUID->"35f08a2c-188a-43bd-a141-9b6e0e2a3e73"],

Cell[TextData[{
 "With this option set to ",
 Cell[BoxData[
  ButtonBox["False",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/False"]], "InlineFormula",ExpressionUUID->
  "2a8e8585-e459-4cd3-ab14-89af7377b114"],
 ", only the position explicitly inputted will be used. If set to ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "1adb8cdb-605e-4c3a-aa61-f8e3d8ec3737"],
 ", the positions are copied by translation to cover the size of the host."
}], "ExampleText",
 CellChangeTimes->{{3.7614611782522984`*^9, 3.761461212554122*^9}, {
  3.761461251097926*^9, 3.761461263880851*^9}, {3.761461299856163*^9, 
  3.7614613613608103`*^9}},
 CellID->1268678943,ExpressionUUID->"4bf6dc7c-f2a0-44b1-b2e2-e3745c0feeb9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CrystalPlot", "[", 
    RowBox[{
     RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", "\"\<Ni\>\"", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"1", "/", "2"}]}], "}"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"ExpandCrystal", "[", 
        RowBox[{"\"\<Cobalt(II)Fluoride\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<DemoStructure\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<MatchHostSize\>\"", "\[Rule]", "tf"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<Box\>\""}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", "Above"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"tf", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.761459938819355*^9, 3.7614600557280807`*^9}, 
   3.761460090258625*^9, {3.761460615948371*^9, 3.76146067075688*^9}, {
   3.761460779895459*^9, 3.761460788324316*^9}, {3.762624348159029*^9, 
   3.76262435312568*^9}, 3.762624436406584*^9, 3.774171698373865*^9, {
   3.787898443522458*^9, 3.787898444357738*^9}},
 CellLabel->"In[1]:=",
 CellID->532886137,ExpressionUUID->"cd35e5b5-d227-42cc-946f-e4f59de2fcaa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {4.695, 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 4.695, 0.}}]]}, 
     {RGBColor[0, 0, 1], 
      Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 3.1785}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 4.695, 0.}, {4.695, 4.695, 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{4.695, 0., 0.}, {4.695, 4.695, 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{4.695, 0., 0.}, {4.695, 0., 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 4.695, 0.}, {0., 4.695, 3.1785}}]}, 
     {GrayLevel[0], 
      Line3DBox[{{4.695, 4.695, 0.}, {4.695, 4.695, 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 3.1785}, {4.695, 0., 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 3.1785}, {0., 4.695, 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 4.695, 3.1785}, {4.695, 4.695, 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{4.695, 0., 3.1785}, {4.695, 4.695, 3.1785}}]}, 
     {RGBColor[0.941176, 0.564706, 0.627451], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCQA2JmBtzA42GVyLrjTA4wWnFDUcbE3J/26Oog4pwOqPqE
HNDNeRO4Q65VWwbDHJh67OYowfno4jD16PbBAMw+dPejq0c3B10eZg66+9HV
YzcH4X50cVT1mP6cNRMIKtVxuB+hHt0cdPfDzMHufiUc7lfC4X4lDPdDzNXB
Ef4IcXT12MNZB8M9qOJKONQj3AMAHVraqg==
       "], 1.52]}, 
     {RGBColor[0.578462, 0.85539, 0.408855], SphereBox[CompressedData["
1:eJxTTMoPSmViYGBQAWJmIP586uu2mae+2cNoBigQu1vly6/F5QCjYeKW7/8/
bul8a3/o2Nf3v3T4HBQ3FGVMzP0J58PkYeLo5kPEOR3QzYeJw9SxhFg0hVRJ
OKC754q/xe6td+Qx3BPyyOqY6HsFDPcY3P+14V6FmAO6e2Dmo7sHZj5MHKYO
PXxg6tDDB2YfevjA3IcePujmw+xFNx/dPejhA1OPHj4w96CHD4yPHj7o5qO7
Bz18ls2K9GZcqIoRPn0zbj43DNLECB+bB7uS3BaoYITPj6CKC2+CtDDCB918
mL3o5qO7Bz18YOrRwwfmHvTwgbkHPXzQzUd3D3r4AADLUmmq
       "], 0.42]}, 
     {RGBColor[0.313725, 0.815686, 0.313725], 
      SphereBox[{{0., 2.3475, 1.58925}}, 1.49]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->Above,
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}], ",", 
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {4.695, 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 4.695, 0.}}]]}, 
     {RGBColor[0, 0, 1], 
      Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 3.1785}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 4.695, 0.}, {4.695, 4.695, 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{4.695, 0., 0.}, {4.695, 4.695, 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{4.695, 0., 0.}, {4.695, 0., 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 4.695, 0.}, {0., 4.695, 3.1785}}]}, 
     {GrayLevel[0], 
      Line3DBox[{{4.695, 4.695, 0.}, {4.695, 4.695, 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 3.1785}, {4.695, 0., 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 3.1785}, {0., 4.695, 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 4.695, 3.1785}, {4.695, 4.695, 3.1785}}]}, 
     {GrayLevel[0], Line3DBox[{{4.695, 0., 3.1785}, {4.695, 4.695, 3.1785}}]}, 
     {RGBColor[0.941176, 0.564706, 0.627451], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCQA2JmBtzA42GVyLrjTA4wWnFDUcbE3J/26Oog4pwOqPqE
HNDNeRO4Q65VWwbDHJh67OYowfno4jD16PbBAMw+dPejq0c3B10eZg66+9HV
YzcH4X50cVT1mP6cNRMIKtVxuB+hHt0cdPfDzMHufiUc7lfC4X4lDPdDzNXB
Ef4IcXT12MNZB8M9qOJKONQj3AMAHVraqg==
       "], 1.52]}, 
     {RGBColor[0.578462, 0.85539, 0.408855], SphereBox[CompressedData["
1:eJxTTMoPSmViYGBQAWJmIP586uu2mae+2cNoBigQu1vly6/F5QCjYeKW7/8/
bul8a3/o2Nf3v3T4HBQ3FGVMzP0J58PkYeLo5kPEOR3QzYeJw9SxhFg0hVRJ
OKC754q/xe6td+Qx3BPyyOqY6HsFDPcY3P+14V6FmAO6e2Dmo7sHZj5MHKYO
PXxg6tDDB2YfevjA3IcePujmw+xFNx/dPejhA1OPHj4w96CHD4yPHj7o5qO7
Bz18ls2K9GZcqIoRPn0zbj43DNLECB+bB7uS3BaoYITPj6CKC2+CtDDCB918
mL3o5qO7Bz18YOrRwwfmHvTwgbkHPXzQzUd3D3r4AADLUmmq
       "], 0.42]}, 
     {RGBColor[0.313725, 0.815686, 0.313725], 
      SphereBox[{{0., 2.3475, 1.58925}, {0., 7.0425, 1.58925}, {4.695, 2.3475,
        1.58925}, {4.695, 7.0425, 1.58925}, {9.39, 2.3475, 1.58925}, {9.39, 
       7.0425, 1.58925}, {14.085, 2.3475, 1.58925}, {14.085, 7.0425, 
       1.58925}}, 1.49]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->Above,
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}]}], "}"}]], "Output",
 CellChangeTimes->{{3.76146065511051*^9, 3.761460671067532*^9}, {
   3.7614607888608837`*^9, 3.761460798327265*^9}, {3.7626243535276947`*^9, 
   3.762624359055675*^9}, 3.7626244389254436`*^9, 3.763218969377038*^9, 
   3.782489511879459*^9, 3.787898448184243*^9},
 CellLabel->"Out[1]=",
 CellID->1906452367,ExpressionUUID->"e3659b08-db3a-4c40-bf9b-ad705f47c0a1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"TrimBoundary\"", "ExampleSubsection",ExpressionUUID->
   "d4cdc952-a380-46f4-884f-c6d82185cd54"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.76262429248201*^9, 3.762624294688303*^9}},
 CellID->166498975,ExpressionUUID->"fccc618d-3ee9-46b2-9656-d95b5be6ea0c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "@", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CrystalPlot", "[", 
     RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", "\"\<Ni\>\"", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"3", "/", "4"}], ",", 
          RowBox[{"1", "/", "4"}], ",", "0"}], "}"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ExpandCrystal", "[", "\"\<PrussianBlue\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<DemoStructure\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<TrimBoundary\>\"", "\[Rule]", "trimType"}]}], "]"}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"trimType", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<None\>\"", ",", "\"\<OuterEdges\>\"", ",", "\"\<Box\>\""}], 
       "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.761459938819355*^9, 3.7614600557280807`*^9}, 
   3.761460090258625*^9, {3.761460615948371*^9, 3.76146067075688*^9}, {
   3.761460779895459*^9, 3.761460788324316*^9}, {3.762624458430009*^9, 
   3.7626247191226187`*^9}, 3.774171700863687*^9, {3.787898455595241*^9, 
   3.787898460578742*^9}},
 CellLabel->"In[1]:=",
 CellID->1769743483,ExpressionUUID->"5c865a8b-4819-43d7-94bb-134556b771a3"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     Graphics3DBox[{
       {RGBColor[1, 0, 0], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {10.166, 0., 0.}}]]}, 
       {RGBColor[0, 1, 0], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 10.166, 0.}}]]}, 
       {RGBColor[0, 0, 1], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 10.166}}]]}, 
       {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {10.166, 10.166, 0.}}]}, 
       {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 10.166, 0.}}]}, 
       {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 0., 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {0., 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{10.166, 10.166, 0.}, {10.166, 10.166, 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {10.166, 0., 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {0., 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{0., 10.166, 10.166}, {10.166, 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{10.166, 0., 10.166}, {10.166, 10.166, 10.166}}]}, 
       {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCwA2JmIP7pd6bKUITRYZHrts9/Q0Tg9GND5qkf+RUwxGE0
rfT5f3vw/4YpKwYtI1CTzs8vB6fRxQnx0cVxyZNrD4z2tlmQc2oqO9xfDFAg
lyuzUey+DIY4DBCrD12eWH0wdTB5mDhMHbp5hNSh20dIHcxcdPdCaBUH7P5U
wXA/ujiqPhUM/YTso5W5uPyBy1yYebD8gZ4+YPkDXRwGaKUPXR7mbnRzYeLo
5qKLo5YPKg7EqkN3H7p+XO5DNx9dHl2cWHOp7W9S3YVLHwDDmB2o
         "], 0.48]}, 
       {RGBColor[0.878431, 0.4, 0.2], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmIF7kuu3z3xARBwYcgFh5dHUQvooDdnUqDuh87Oai
q0PXj06Tbz9x5qG7g1J5XO7AxcdN44ofXOGKi489/BE0sebh0odLHgDyeOao

         "], 1.56]}, 
       {RGBColor[0.4, 0.4, 0.4], SphereBox[CompressedData["
1:eJxTTMoPSmViYGAwA2JmIF6cxTr9hhunAwMa+Hj15ex+NhkMcRiglT50+UWu
2z7/DVFxQDcXJo5uLro4TB9MnFh16O5D14/Lfejmo8ujixNrLrX9Taq7cOmr
YUzaXrLxnz1EXARufxHrqZjzdQoO6OIwQKw+dHli9cHUoYabiANMHbp5hNSh
20dIHcxcdPfCwg+7P1Uw3I8ujqpPBUM/IftoZS4uf+AyF2YeavpCxDdquhTB
oGmlDwDCrfeZ
         "], 0.67]}, 
       {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[CompressedData["
1:eJxTTMoPSmViYGAwA2JmIDb46B6Y7sfgsMh12+e/ISJwOswzRT7FUQFDHEbT
Sp/wLJVpU6I54OIMUGBlFzXHsEYGQxwGiNWHLk+sPpg6mDxMHKYO3TxC6tDt
I6QOZi66eyG0igN2f6pguB9dHFWfCoZ+QvbRylxc/sBlLsw8WPpCTx+w9IUu
DgO00ocuD3M3urkwcXRz0cVR85eKA7Hq0N2Hrh+X+9DNR5dHFyfWXGr7m1R3
4dIHAPKeuJM=
         "], 0.56]}, 
       {RGBColor[0.313725, 0.815686, 0.313725], 
        SphereBox[{{7.6245, 2.5415, 0.}, {7.6245, 2.5415, 10.166}}, 1.49]}},
      AlignmentPoint->Center,
      AspectRatio->Automatic,
      Axes->False,
      AxesEdge->Automatic,
      AxesLabel->None,
      AxesOrigin->Automatic,
      AxesStyle->{},
      Background->None,
      BaseStyle->{},
      BaselinePosition->Automatic,
      BoxRatios->Automatic,
      BoxStyle->{},
      Boxed->False,
      ClipPlanes->None,
      ClipPlanesStyle->Automatic,
      ColorOutput->Automatic,
      ContentSelectable->Automatic,
      ControllerLinking->Automatic,
      ControllerMethod->Automatic,
      ControllerPath->Automatic,
      CoordinatesToolOptions:>Automatic,
      DisplayFunction->Identity,
      Epilog->{},
      FaceGrids->None,
      FaceGridsStyle->{},
      FormatType->TraditionalForm,
      ImageMargins->0.,
      ImagePadding->All,
      ImageSize->Automatic,
      ImageSizeRaw->Automatic,
      LabelStyle->{},
      Lighting->"Neutral",
      Method->Automatic,
      PlotLabel->None,
      PlotRange->All,
      PlotRangePadding->Automatic,
      PlotRegion->Automatic,
      PreserveImageOptions->Automatic,
      Prolog->{},
      RotationAction->"Fit",
      SphericalRegion->True,
      Ticks->Automatic,
      TicksStyle->{},
      TouchscreenAutoZoom->False,
      ViewAngle->Automatic,
      ViewCenter->Automatic,
      ViewMatrix->Automatic,
      ViewPoint->{1.3, -2.4, 2.},
      ViewProjection->Automatic,
      ViewRange->All,
      ViewVector->Automatic,
      ViewVertical->{0, 0, 1}]},
    {
     Graphics3DBox[{
       {RGBColor[1, 0, 0], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {10.166, 0., 0.}}]]}, 
       {RGBColor[0, 1, 0], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 10.166, 0.}}]]}, 
       {RGBColor[0, 0, 1], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 10.166}}]]}, 
       {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {10.166, 10.166, 0.}}]}, 
       {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 10.166, 0.}}]}, 
       {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 0., 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {0., 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{10.166, 10.166, 0.}, {10.166, 10.166, 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {10.166, 0., 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {0., 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{0., 10.166, 10.166}, {10.166, 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{10.166, 0., 10.166}, {10.166, 10.166, 10.166}}]}, 
       {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxTTMoPSmViYGDQAGJmIP7pd6bKUITRYZHrts9/Q0Tg9GND5qkf+RUwxGE0
rfT5f3vw/4YpKwYtI1CTzs8vB6fRxQnx0cVxyZNrD4z2tlmQc2oqO9xfDFAg
lyuzUey+DIY4DBCrD12eWH0wdTB5mDhMHbp5hNSh20dIHcxcdPdCaBUH7P5U
wXA/ujiqPhV4+kIPX1j6QheHAVrpQ5eHuRPdXJg4urno4qj5S8UBAAAcQe4=

         "], 0.48]}, 
       {RGBColor[0.878431, 0.4, 0.2], 
        SphereBox[{{5.083, 0., 0.}, {0., 5.083, 0.}, {0., 0., 5.083}, {5.083, 
         0., 10.166}, {0., 5.083, 10.166}, {0., 5.083, 5.083}, {5.083, 0., 
         5.083}, {5.083, 5.083, 0.}, {5.083, 5.083, 10.166}, {5.083, 5.083, 
         5.083}, {0., 0., 0.}, {0., 0., 10.166}}, 1.56]}, 
       {RGBColor[0.4, 0.4, 0.4], SphereBox[CompressedData["
1:eJxTTMoPSmViYGBQAGJmIF6cxTr9hhunAwMa+Hj15ex+NhkMcRiglT50+UWu
2z7/DVFxQDcXJo5uLro4TB9MvIYxaXvJxn/2EL4IXF0R66mY83UKDujiMECs
PnR5YvXB1KH6T8QBpg7dPELq0O0jpA5mLrp7YeGG3Z8qGO5HF0fVp+KAGk+I
8EKNJxEMmlb6AH2WDjo=
         "], 0.67]}, 
       {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[CompressedData["
1:eJxTTMoPSmViYGBQAGJmIDb46B6Y7sfgsMh12+e/ISJwOswzRT7FUQFDHEbT
Sp/wLJVpU6I54OIMUGBlFzXHsEYGQxwGiNWHLk+sPpg6mDxMHKYO3TxC6tDt
I6QOZi66eyG0igN2f6pguB9dHFWfCjx+0MMXFj/o4jBAK33o8jB3opsLE0c3
F10cNX2qOAAA27bpEw==
         "], 0.56]}, 
       {RGBColor[0.313725, 0.815686, 0.313725], 
        SphereBox[{{7.6245, 2.5415, 0.}, {7.6245, 2.5415, 10.166}}, 1.49]}},
      AlignmentPoint->Center,
      AspectRatio->Automatic,
      Axes->False,
      AxesEdge->Automatic,
      AxesLabel->None,
      AxesOrigin->Automatic,
      AxesStyle->{},
      Background->None,
      BaseStyle->{},
      BaselinePosition->Automatic,
      BoxRatios->Automatic,
      BoxStyle->{},
      Boxed->False,
      ClipPlanes->None,
      ClipPlanesStyle->Automatic,
      ColorOutput->Automatic,
      ContentSelectable->Automatic,
      ControllerLinking->Automatic,
      ControllerMethod->Automatic,
      ControllerPath->Automatic,
      CoordinatesToolOptions:>Automatic,
      DisplayFunction->Identity,
      Epilog->{},
      FaceGrids->None,
      FaceGridsStyle->{},
      FormatType->TraditionalForm,
      ImageMargins->0.,
      ImagePadding->All,
      ImageSize->Automatic,
      ImageSizeRaw->Automatic,
      LabelStyle->{},
      Lighting->"Neutral",
      Method->Automatic,
      PlotLabel->None,
      PlotRange->All,
      PlotRangePadding->Automatic,
      PlotRegion->Automatic,
      PreserveImageOptions->Automatic,
      Prolog->{},
      RotationAction->"Fit",
      SphericalRegion->True,
      Ticks->Automatic,
      TicksStyle->{},
      TouchscreenAutoZoom->False,
      ViewAngle->Automatic,
      ViewCenter->Automatic,
      ViewMatrix->Automatic,
      ViewPoint->{1.3, -2.4, 2.},
      ViewProjection->Automatic,
      ViewRange->All,
      ViewVector->Automatic,
      ViewVertical->{0, 0, 1}]},
    {
     Graphics3DBox[{
       {RGBColor[1, 0, 0], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {10.166, 0., 0.}}]]}, 
       {RGBColor[0, 1, 0], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 10.166, 0.}}]]}, 
       {RGBColor[0, 0, 1], 
        Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 10.166}}]]}, 
       {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {10.166, 10.166, 0.}}]}, 
       {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 10.166, 0.}}]}, 
       {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 0., 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {0., 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{10.166, 10.166, 0.}, {10.166, 10.166, 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {10.166, 0., 10.166}}]}, 
       {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {0., 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{0., 10.166, 10.166}, {10.166, 10.166, 10.166}}]}, 
       {GrayLevel[0], 
        Line3DBox[{{10.166, 0., 10.166}, {10.166, 10.166, 10.166}}]}, 
       {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxTTMoPSmViYGBQAGJmIP7pd6bKUITRYZHrts9/Q0Tg9GND5qkf+RUwxGE0
rfT5f3vw/4YpKwYtI1CTzs8vB6fRxQnx0cVxyZNrD4z2tlmQc2oqO9xfDFAg
lyuzUey+DIY4DBCrD12eWH0wdTB5mDhMHbp5hNSh20dIHcxcWPyj+x8W/+ji
MEArfQDE8vbZ
         "], 0.48]}, 
       {RGBColor[0.878431, 0.4, 0.2], 
        SphereBox[{{5.083, 0., 0.}, {0., 5.083, 0.}, {0., 0., 5.083}, {0., 
         5.083, 5.083}, {5.083, 0., 5.083}, {5.083, 5.083, 0.}, {5.083, 5.083,
          5.083}, {0., 0., 0.}}, 1.56]}, 
       {RGBColor[0.4, 0.4, 0.4], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCQAGJmIF6cxTr9hhunAwMa+Hj15ex+NhkMcRiglb4axqTt
JRv/2S9y3fb5b4gIXF0R66mY83UKDujiMECsPnR5YvXB1MHkYeIwdejmEVKH
bh8hdTBzYeGH7h9Y+KGLw2ha6QMA4Uu+DQ==
         "], 0.67]}, 
       {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCQAGJmIDb46B6Y7sfgsMh12+e/ISJwOswzRT7FUQFDHEbT
Sp/wLJVpU6I54OIMUGBlFzXHsEYGQxwGiNWHLk+sPpg6mDxMHKYO3TxC6tDt
I6QOZi4s/ND9Dws/dHEYoJU+AA2Iojs=
         "], 0.56]}, 
       {RGBColor[0.313725, 0.815686, 0.313725], 
        SphereBox[{{7.6245, 2.5415, 0.}}, 1.49]}},
      AlignmentPoint->Center,
      AspectRatio->Automatic,
      Axes->False,
      AxesEdge->Automatic,
      AxesLabel->None,
      AxesOrigin->Automatic,
      AxesStyle->{},
      Background->None,
      BaseStyle->{},
      BaselinePosition->Automatic,
      BoxRatios->Automatic,
      BoxStyle->{},
      Boxed->False,
      ClipPlanes->None,
      ClipPlanesStyle->Automatic,
      ColorOutput->Automatic,
      ContentSelectable->Automatic,
      ControllerLinking->Automatic,
      ControllerMethod->Automatic,
      ControllerPath->Automatic,
      CoordinatesToolOptions:>Automatic,
      DisplayFunction->Identity,
      Epilog->{},
      FaceGrids->None,
      FaceGridsStyle->{},
      FormatType->TraditionalForm,
      ImageMargins->0.,
      ImagePadding->All,
      ImageSize->Automatic,
      ImageSizeRaw->Automatic,
      LabelStyle->{},
      Lighting->"Neutral",
      Method->Automatic,
      PlotLabel->None,
      PlotRange->All,
      PlotRangePadding->Automatic,
      PlotRegion->Automatic,
      PreserveImageOptions->Automatic,
      Prolog->{},
      RotationAction->"Fit",
      SphericalRegion->True,
      Ticks->Automatic,
      TicksStyle->{},
      TouchscreenAutoZoom->False,
      ViewAngle->Automatic,
      ViewCenter->Automatic,
      ViewMatrix->Automatic,
      ViewPoint->{1.3, -2.4, 2.},
      ViewProjection->Automatic,
      ViewRange->All,
      ViewVector->Automatic,
      ViewVertical->{0, 0, 1}]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.762624318682026*^9, {3.762624454988638*^9, 3.762624459897559*^9}, {
   3.7626244929133863`*^9, 3.762624726897196*^9}, 3.782489518066701*^9, 
   3.7878984647686872`*^9},
 CellLabel->"Out[1]=",
 CellID->825016612,ExpressionUUID->"c489af85-a1ff-46e8-bf32-af716e920807"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Distortions\"", "ExampleSubsection",ExpressionUUID->
   "d87a8e45-89bf-4453-bee4-03cb85ebc7f6"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.7626893014336443`*^9, 3.762689305832074*^9}, {
  3.76285092858788*^9, 3.762850928587925*^9}},
 CellID->1688597095,ExpressionUUID->"519cbd37-8b19-4b25-a8d4-2f9db366da84"],

Cell[TextData[{
 "In this example, a carbon atom is placed in the centre of a silicon unit \
cell, then shifted by ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0.25", "\[CapitalARing]"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9f872ce6-dfae-4d26-8556-eee5be4c0d35"],
 " in the ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ec214dae-02a2-4e39-b153-aabc7bd9b471"],
 " direction and a random amount between ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0.50", "\[Dash]", 
    RowBox[{"0.75", "\[CapitalARing]"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6ee49289-a359-4a1a-acab-6559996eb6cb"],
 " in the ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]], "InlineMath",ExpressionUUID->
  "17f9298c-2d0d-4de3-9a80-8ea37c74aace"],
 " direction."
}], "ExampleText",
 CellChangeTimes->{{3.762689760421042*^9, 3.7626898741071577`*^9}, {
  3.762850959758204*^9, 3.762851046117547*^9}},
 CellID->1376607065,ExpressionUUID->"6715f021-bdb5-4f79-a411-9a4bef75fe03"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "@", 
  RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\"\<C\>\"", "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "/", "2"}], ",", 
       RowBox[{"1", "/", "2"}], ",", 
       RowBox[{"1", "/", "2"}]}], "}"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ExpandCrystal", "[", "\"\<Silicon\>\"", "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<DemoStructure\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\"\<Distortions\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0.25", ",", 
       RowBox[{"{", 
        RowBox[{"0.50", ",", "1.50"}], "}"}], ",", "0"}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7628509260456953`*^9, 3.762850927135764*^9}, {
   3.7628510573261137`*^9, 3.762851094186804*^9}, 3.774171703961802*^9, {
   3.7878984720669727`*^9, 3.787898479010643*^9}},
 CellLabel->"In[1]:=",
 CellID->695241421,ExpressionUUID->"c44877d2-fce9-42e0-b9e3-3fa8c265438b"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5.43088, 0., 0.}}]]}, 
   {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5.43088, 0.}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.43088}}]]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.43088, 0.}, {5.43088, 5.43088, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.43088, 0., 0.}, {5.43088, 5.43088, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.43088, 0., 0.}, {5.43088, 0., 5.43088}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.43088, 0.}, {0., 5.43088, 5.43088}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{5.43088, 5.43088, 0.}, {5.43088, 5.43088, 5.43088}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.43088}, {5.43088, 0., 5.43088}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.43088}, {0., 5.43088, 5.43088}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{0., 5.43088, 5.43088}, {5.43088, 5.43088, 5.43088}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{5.43088, 0., 5.43088}, {5.43088, 5.43088, 5.43088}}]}, 
   {RGBColor[0.941176, 0.784314, 0.627451], 
    SphereBox[{{0.67886, 0.67886, 0.67886}, {3.3943000000000003`, 0.67886, 
     3.3943000000000003`}, {0.67886, 3.3943000000000003`, 
     3.3943000000000003`}, {3.3943000000000003`, 3.3943000000000003`, 
     0.67886}, {4.75202, 2.03658, 2.03658}, {4.75202, 4.75202, 4.75202}, {
     2.03658, 2.03658, 4.75202}, {2.03658, 4.75202, 2.03658}}, 1.11]}, 
   {RGBColor[0.4, 0.4, 0.4], 
    SphereBox[{{2.96544, 3.9967576715435675`, 2.71544}}, 0.67]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{1.3, -2.4, 2.},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.7627858078427896`*^9, 3.76278580944786*^9}, {
   3.762851066096608*^9, 3.762851105170373*^9}, 3.782489525090228*^9, 
   3.787898482698058*^9},
 CellLabel->"Out[1]=",
 CellID->616539983,ExpressionUUID->"b7e888b8-20c0-4ec7-9dce-75486ca65a79"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Rotations\"", "ExampleSubsection",ExpressionUUID->
   "26bc65fe-c13f-4298-9364-0f0884ded563"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.762785482310884*^9, 3.762785485709133*^9}, {
  3.7628511142395773`*^9, 3.762851114239621*^9}},
 CellID->1020562723,ExpressionUUID->"89ae5ce6-0333-4a15-9e65-92bd79871012"],

Cell["\<\
In this demonstration, we place a unit cell of sodium chloride on top of a \
small aluminium slab and control the rotation about the vertical axis.\
\>", "ExampleText",
 CellChangeTimes->{{3.782490189554101*^9, 3.7824902504310417`*^9}},
 CellID->1678722922,ExpressionUUID->"db959aaa-401f-4714-84b4-c3e3572f1212"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CrystalPlot", "@", 
    RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"ExpandCrystal", "[", "\"\<SodiumChloride\>\"", "]"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1.75"}], "}"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ExpandCrystal", "[", 
       RowBox[{"\"\<Aluminium\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "3", ",", "1"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<DemoStructure\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<MatchHostSize\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Rotations\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "\[Theta]"}], "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", 
     RowBox[{"360", "\[Degree]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7626893490649223`*^9, 3.762689388844075*^9}, {
   3.762689505116497*^9, 3.7626895876474123`*^9}, {3.762689639881755*^9, 
   3.7626896882769327`*^9}, {3.762785559701626*^9, 3.7627855715081367`*^9}, {
   3.7627856037901983`*^9, 3.762785739394503*^9}, {3.7627919571975946`*^9, 
   3.762792050320682*^9}, {3.76285111258899*^9, 3.762851143986176*^9}, 
   3.774171707352272*^9, {3.7824898235013123`*^9, 3.7824901448979483`*^9}, 
   3.787898545905497*^9},
 CellLabel->"In[1]:=",
 CellID->425114609,ExpressionUUID->"77834ea5-35ba-4a8a-9c16-5e3b98d7cfc8"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Theta]$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Theta]$$], 0, 360 Degree}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Theta]$16851$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Theta]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$16851$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> MaXrd`CrystalPlot[
        MaXrd`EmbedStructure[{
          MaXrd`ExpandCrystal["SodiumChloride"]}, {{0, 0, 1.75}}, 
         MaXrd`ExpandCrystal["Aluminium", {3, 3, 1}], "NewLabel" -> 
         "DemoStructure", "MatchHostSize" -> False, 
         "Rotations" -> {0, 0, $CellContext`\[Theta]$$}]], 
      "Specifications" :> {{$CellContext`\[Theta]$$, 0, 360 Degree}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{403., {222., 227.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.782490164143488*^9},
 CellLabel->"Out[1]=",
 CellID->1527939293,ExpressionUUID->"eae3f080-d19e-4dad-ac49-e80a665ad970"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"OverlapPrecedence\"", "ExampleSubsection",ExpressionUUID->
   "0579c692-83d9-4eaa-a2d6-026bfa44bfb8"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.771061941548962*^9, 3.771061945041505*^9}},
 CellID->854869796,ExpressionUUID->"7f846b48-237e-44c7-ad00-66c8a433eed2"],

Cell["\<\
In this example, we will be using a simple couple of demo crystal structures:\
\
\>", "ExampleText",
 CellChangeTimes->{{3.7711348786446247`*^9, 3.771134894446722*^9}, {
  3.771135064467127*^9, 3.771135141341597*^9}},
 CellID->268543758,ExpressionUUID->"f840f5ea-1ebc-4f55-82e6-bfba3f4cbda4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$CrystalData", "=", 
   RowBox[{"Import", "@", 
    RowBox[{"First", "@", 
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<DemoBlocksAB.m\>\"", ",", 
       RowBox[{"{", "$MaXrdPath", "}"}], ",", "2"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"blocks", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"blockAu", ",", "blockAg"}], "}"}], "=", 
    RowBox[{"Keys", "@", "$CrystalData"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"CrystalPlot", "/@", "blocks"}]}], "Input",
 CellChangeTimes->{{3.7710622492926607`*^9, 3.771062255592668*^9}},
 CellLabel->"In[1]:=",
 CellID->1212570482,ExpressionUUID->"085d651f-e9ed-4aa3-995a-ffebfb5c1f57"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[1., 0.819608, 0.137255], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}, {5., 5., 0.}, {5., 5., 5.}}, 1.74]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->{1.3, -2.4, 2.},
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}], ",", 
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[0.752941, 0.752941, 0.752941], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}, {5., 5., 0.}, {5., 5., 5.}}, 1.65]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->{1.3, -2.4, 2.},
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.771062057800314*^9, 3.771062256794444*^9, 3.771072334875989*^9, {
   3.771134904188435*^9, 3.771134908807328*^9}, 3.771135151986335*^9, 
   3.7824902560318203`*^9},
 CellLabel->"Out[3]=",
 CellID->1246881296,ExpressionUUID->"0ad1a495-e6cb-4b84-89c9-281d0d3c9bd8"]
}, Open  ]],

Cell[TextData[{
 "We wish to hinge them together at the ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{"1", "\[ThinSpace]", "1", "\[ThinSpace]", "l"}], "]"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "2c31f3ef-bf60-435b-a7c6-255ef26d033b"],
 " axis. With the ",
 Cell[BoxData["\<\"OverlapPrecedence\"\>"], "InlineFormula",ExpressionUUID->
  "7a4ebe8a-3f90-4ca8-90d2-278214d6414d"],
 " option we can control whether the whether the host atoms (here: gold) \
should be kept or replaced by the overlapping guest atoms."
}], "ExampleText",
 CellChangeTimes->{{3.7710620973782787`*^9, 3.771062159922357*^9}, {
  3.771134920478971*^9, 3.771134967229463*^9}, {3.77113500825453*^9, 
  3.7711350234227448`*^9}, {3.771135168423429*^9, 3.77113523460874*^9}},
 CellID->1233617734,ExpressionUUID->"10aa59ca-87a7-4ef1-903c-8bb1170ae855"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"CrystalPlot", "@", 
    RowBox[{"EmbedStructure", "[", 
     RowBox[{
      RowBox[{"{", "blockAg", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "0"}], "}"}], "}"}], ",", "blockAu", ",", 
      
      RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<Demo\>\""}], ",", 
      RowBox[{"\"\<MatchHostSize\>\"", "\[Rule]", "False"}], ",", 
      RowBox[{"\"\<OverlapPrecedence\>\"", "\[Rule]", "p"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"p", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Host\>\"", ",", "\"\<Guest\>\""}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.771062068263515*^9, 3.771062072045789*^9}, 
   3.771062234466168*^9, {3.7710622680096703`*^9, 3.771062299791564*^9}, {
   3.77107235144671*^9, 3.771072418226799*^9}, {3.77107250762855*^9, 
   3.7710725128104143`*^9}, 3.774171718791847*^9},
 CellLabel->"In[4]:=",
 CellID->1852596485,ExpressionUUID->"69777cb0-7554-47fd-8f32-44b0c20201d7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[1., 0.819608, 0.137255], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}, {5., 5., 0.}, {5., 5., 5.}}, 1.74]}, 
     {RGBColor[0.752941, 0.752941, 0.752941], 
      SphereBox[{{5., 10., 0.}, {5., 10., 5.}, {10., 5., 0.}, {10., 5., 5.}, {
       10., 10., 0.}, {10., 10., 5.}}, 1.65]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->{1.3, -2.4, 2.},
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}], ",", 
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[0.752941, 0.752941, 0.752941], 
      SphereBox[{{5., 5., 0.}, {5., 5., 5.}, {5., 10., 0.}, {5., 10., 5.}, {
       10., 5., 0.}, {10., 5., 5.}, {10., 10., 0.}, {10., 10., 5.}}, 1.65]}, 
     {RGBColor[1., 0.819608, 0.137255], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}}, 1.74]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->{1.3, -2.4, 2.},
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.771062300139859*^9, {3.7710625793117847`*^9, 3.771062582913197*^9}, {
   3.771072337175601*^9, 3.771072379058173*^9}, {3.771072418896346*^9, 
   3.771072431898869*^9}, 3.771072513229662*^9, 3.7711352453794727`*^9, 
   3.782490258142622*^9},
 CellLabel->"Out[4]=",
 CellID->865523087,ExpressionUUID->"e0a0841e-4418-4451-a2e6-64b6d1019968"]
}, Open  ]],

Cell[TextData[{
 "With the default setting ",
 Cell[BoxData[
 "\"\<None\>\""], "InlineFormula",ExpressionUUID->
  "ad882540-8685-4a2d-ae34-57ddc3fb167e"],
 " no check for overlapping atoms is performed and the resulting structure \
may contain superpositioned atoms."
}], "ExampleText",
 CellChangeTimes->{{3.7711352866708727`*^9, 3.771135308842183*^9}, 
   3.7711353549374638`*^9, {3.7711354366570053`*^9, 3.77113545220576*^9}, {
   3.771135484813745*^9, 3.7711355622160597`*^9}, {3.774171730670582*^9, 
   3.7741717490139008`*^9}},
 CellID->971695640,ExpressionUUID->"4e8731c8-d8cb-4d20-adde-3449011af864"],

Cell[TextData[{
 "Restoring ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"98bc88de-ee99-479b-ba57-53fc3810f0f8"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.771135573094782*^9, 3.77113559261269*^9}},
 CellID->1686906185,ExpressionUUID->"c1947f31-f102-45dc-b695-8e921b68a566"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$CrystalData", "=", 
   RowBox[{"Import", "@", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
      "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
       "\"\<CrystalData.m\>\""}], "}"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7711355945793324`*^9, 3.771135631844901*^9}},
 CellLabel->"In[5]:=",
 CellID->1428394713,ExpressionUUID->"4745db91-0cb3-4422-aea1-a6bf2acbf642"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"OverlapRadius\"", "ExampleSubsection",ExpressionUUID->
   "deadf0bc-0fc4-4ddc-b79f-55f5eb25271a"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.771061949257406*^9, 3.771061953881475*^9}},
 CellID->1131062942,ExpressionUUID->"3f2b34af-6cb3-466a-8f2d-7984250fc9ba"],

Cell["\<\
In this example, we will be using a simple couple of demo crystal structures:\
\
\>", "ExampleText",
 CellChangeTimes->{{3.7711348786446247`*^9, 3.771134894446722*^9}, {
  3.771135064467127*^9, 3.771135141341597*^9}},
 CellID->1996927722,ExpressionUUID->"12d38c9f-4a69-46dc-a20d-cd9f7bf41bb2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$CrystalData", "=", 
   RowBox[{"Import", "@", 
    RowBox[{"First", "@", 
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<DemoBlocksAB.m\>\"", ",", 
       RowBox[{"{", "$MaXrdPath", "}"}], ",", "2"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"blocks", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"blockAu", ",", "blockAg"}], "}"}], "=", 
    RowBox[{"Keys", "@", "$CrystalData"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"CrystalPlot", "/@", "blocks"}]}], "Input",
 CellChangeTimes->{{3.7710622492926607`*^9, 3.771062255592668*^9}},
 CellLabel->"In[1]:=",
 CellID->1489788338,ExpressionUUID->"7dbad95a-1de6-43c5-ba26-fc320ed38ba1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[1., 0.819608, 0.137255], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}, {5., 5., 0.}, {5., 5., 5.}}, 1.74]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->{1.3, -2.4, 2.},
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}], ",", 
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[0.752941, 0.752941, 0.752941], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}, {5., 5., 0.}, {5., 5., 5.}}, 1.65]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->{1.3, -2.4, 2.},
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}]}], "}"}]], "Output",
 CellChangeTimes->{3.771137211252112*^9, 3.771137815231263*^9, 
  3.782490270316827*^9},
 CellLabel->"Out[3]=",
 CellID->857379391,ExpressionUUID->"e7ca1553-67c1-4279-89dd-c5811e50d8ab"]
}, Open  ]],

Cell[TextData[{
 "Let us place the \[OpenCurlyDoubleQuote]silver cube\[CloseCurlyDoubleQuote] \
at crystallographic position ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1.75`", " ", "a"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"2442e7ae-d365-4a5f-89b2-1f450be8da3f"],
 ". The gap between the host and the guest is now ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"0.75", "a"}], "=", 
    RowBox[{
     RowBox[{"0.75", "\[CenterDot]", 
      RowBox[{"(", 
       RowBox[{"5.0", "\[CapitalARing]"}], ")"}]}], "=", 
     RowBox[{"3.75", "\[CapitalARing]"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"2927f0ab-e799-4e66-be7a-9a06eab6bb5f"],
 ". If we set the ",
 Cell[BoxData["\<\"OverlapRadius\"\>"], "InlineFormula",ExpressionUUID->
  "c819f534-683c-4ba7-8dbb-2343d6e7e8e1"],
 " above this value, the side of the silver cube closest to the gold cube is \
removed:"
}], "ExampleText",
 CellChangeTimes->{{3.7711375113379707`*^9, 3.771137535645089*^9}, {
  3.771137568540985*^9, 3.771137805612335*^9}},
 CellID->229062906,ExpressionUUID->"e79976ba-c669-473b-8010-b58a7d79ab0c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"CrystalPlot", "[", 
    RowBox[{
     RowBox[{"EmbedStructure", "[", 
      RowBox[{
       RowBox[{"{", "blockAg", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"1.75", ",", "0", ",", "0"}], "}"}], "}"}], ",", "blockAu", 
       ",", 
       RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<Demo\>\""}], ",", 
       RowBox[{"\"\<MatchHostSize\>\"", "\[Rule]", "False"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<OverlapPrecedence\>\"", "\[Rule]", "\"\<Host\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<OverlapRadius\>\"", "\[Rule]", "r"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ViewPoint", "\[Rule]", "Front"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"{", 
      RowBox[{"3.70", ",", "3.80"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.771137231726385*^9, 3.77113729384223*^9}, {
   3.771137327532655*^9, 3.771137425433333*^9}, {3.771137474231924*^9, 
   3.771137489983274*^9}, 3.774171768890552*^9},
 CellLabel->"In[4]:=",
 CellID->88304206,ExpressionUUID->"322684ac-c0f3-4f9b-9159-0f4e3f8dfba2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[1., 0.819608, 0.137255], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}, {5., 5., 0.}, {5., 5., 5.}}, 1.74]}, 
     {RGBColor[0.752941, 0.752941, 0.752941], 
      SphereBox[{{8.75, 0., 0.}, {8.75, 0., 5.}, {8.75, 5., 0.}, {8.75, 5., 
       5.}, {13.75, 0., 0.}, {13.75, 0., 5.}, {13.75, 5., 0.}, {13.75, 5., 
       5.}}, 1.65]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->Front,
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}], ",", 
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5., 0., 0.}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5., 0.}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 5., 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 0.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 0.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 5., 0.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {5., 0., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {0., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 5., 5.}, {5., 5., 5.}}]}, 
     {GrayLevel[0], Line3DBox[{{5., 0., 5.}, {5., 5., 5.}}]}, 
     {RGBColor[1., 0.819608, 0.137255], 
      SphereBox[{{0., 0., 0.}, {0., 0., 5.}, {0., 5., 0.}, {0., 5., 5.}, {5., 
       0., 0.}, {5., 0., 5.}, {5., 5., 0.}, {5., 5., 5.}}, 1.74]}, 
     {RGBColor[0.752941, 0.752941, 0.752941], 
      SphereBox[{{13.75, 0., 0.}, {13.75, 0., 5.}, {13.75, 5., 0.}, {13.75, 
       5., 5.}}, 1.65]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->Front,
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7711372940958776`*^9, 3.7711373283671637`*^9, {3.7711373687614594`*^9, 
   3.7711373740572042`*^9}, {3.771137407501885*^9, 3.771137425889193*^9}, {
   3.771137474918621*^9, 3.771137490727922*^9}, 3.7711378154707727`*^9, 
   3.782490272081972*^9},
 CellLabel->"Out[4]=",
 CellID->2104397333,ExpressionUUID->"c6511936-2da0-4eaf-a87a-f6904460530a"]
}, Open  ]],

Cell[TextData[{
 "Restoring ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"7c0027e4-a744-4426-bc42-4e4f1a326095"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.771135573094782*^9, 3.77113559261269*^9}},
 CellID->1248683671,ExpressionUUID->"d87d7d6d-3647-417c-a803-09e5b64b05b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$CrystalData", "=", 
   RowBox[{"Import", "@", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
      "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
       "\"\<CrystalData.m\>\""}], "}"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7711355945793324`*^9, 3.771135631844901*^9}},
 CellLabel->"In[5]:=",
 CellID->1416260013,ExpressionUUID->"975b5ec7-2ba6-42d8-aeee-4fa2332774ab"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "ef6b4804-35e5-4fc0-bb77-1dbb7a394173"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"28b0a5d5-1a16-4004-9bc9-ae7dee1e6705"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "957458ae-a6f9-4813-9725-9748f684ddf6"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"2ec43d35-91cb-4078-99b4-6f8f64b6f7e5"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "32af7767-eb94-43e2-a0dd-3907b7140244"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"e8a9d6c2-e23c-457d-b7e8-fd6c7c347263"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "24e6d7bc-0e96-4912-8336-c5532492585a"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"20751a96-00b6-4b54-9ccd-a2a21e5c1895"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "45784fe5-9cf5-4bf8-a78c-88d7068cacea"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"a8a55be0-cf6e-4242-b3f0-d43af0338287"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "a77136a9-1ab1-46de-b371-3ad731619cce"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"5e38c479-f11b-4e6e-84a2-ac40e3a23c7f"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"7fc1cdda-c7c5-4647-9f44-56b10c9ec8a6"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.7614574259795513`*^9, 3.761457428561932*^9}},
 CellID->422887447,ExpressionUUID->"95089a49-bba0-407b-92f8-31f7cc3baf1a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidGuestInput"}], "=", 
   "\"\<Invalid guest unit input.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidTargetPositions"}], "=", 
   "\"\<Invalid position input.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidProbabilities"}], "=", 
   "\"\<The probabilities must be numbers between 0 and 1.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidTrimming"}], "=", 
   "\"\<Invalid setting for \\\"TrimBoundary\\\".\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidAlteration"}], "=", 
   "\"\<Invalid input for \\\"Distortions\\\" or \\\"Rotations\\\".\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidAlterationValues"}], "=", 
   "\"\<Distortion/rotation amplitudes should be numeric and on the form \
\[Delta] or {\!\(\*SubscriptBox[\(\[Delta]\), \(min\)]\), \!\(\*SubscriptBox[\
\(\[Delta]\), \(max\)]\)}.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidDistortionType"}], "=", 
   "\"\<\\\"DistortionType\\\" must be set to either \\\"Crystallographic\\\" \
or \\\"Cartesian\\\".\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "VoidHost"}], "=", 
   "\"\<Host structure cannot be 'Void'.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EmbedStructure", "::", "InvalidOverlapRadius"}], "=", 
   "\"\<\\\"OverlapRadius\\\" must be numeric.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"EmbedStructure", "::", "InvalidAnchorReference"}], "=", 
    "\"\<Anchor reference type \[LeftGuillemet]`1`\[RightGuillemet] is \
invalid. Use either \\\"Host\\\" or \\\"Unit\\\".\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "EmbedStructure"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<DataFile\>\"", "\[Rule]", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
         "$MaXrdPath", ",", "\"\<UserData\>\"", ",", 
          "\"\<CrystalData.m\>\""}], "}"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<DistortionType\>\"", "\[Rule]", "\"\<Cartesian\>\""}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"\"\<Distortions\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<MatchHostSize\>\"", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<OverlapPrecedence\>\"", "\[Rule]", "\"\<\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<OverlapRadius\>\"", "\[Rule]", "1.0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<RotationAnchorReference\>\"", "\[Rule]", "\"\<Unit\>\""}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<RotationAnchorShift\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<RotationAxes\>\"", "\[Rule]", 
       RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Rotations\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<ShowProgress\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<TrimBoundary\>\"", "\[Rule]", "\"\<None\>\""}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "EmbedStructure"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_", ",", "_", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.714926640095376*^9, 3.714926648623674*^9}, {
   3.7281068862853603`*^9, 3.728106924475239*^9}, {3.747569567860682*^9, 
   3.747569567914845*^9}, {3.747569839486174*^9, 3.747569852127593*^9}, {
   3.756710428101788*^9, 3.756710432840755*^9}, {3.7567104759439573`*^9, 
   3.756710476208014*^9}, {3.7609499395994596`*^9, 3.760949952210801*^9}, {
   3.761382798168702*^9, 3.761382801188806*^9}, 3.761387743299842*^9, {
   3.7614169595191708`*^9, 3.761416989634704*^9}, {3.7625819241187563`*^9, 
   3.762581936362295*^9}, {3.76258884302853*^9, 3.762588851450523*^9}, 
   3.762589076924967*^9, {3.7625896339775553`*^9, 3.762589658596109*^9}, {
   3.762624399303061*^9, 3.762624399644244*^9}, {3.762677244824601*^9, 
   3.762677250311742*^9}, {3.762678377818852*^9, 3.7626784018057003`*^9}, {
   3.762678443594308*^9, 3.762678456014505*^9}, {3.762679553558345*^9, 
   3.762679555529254*^9}, {3.7626795868803377`*^9, 3.762679589719862*^9}, {
   3.762693565936051*^9, 3.7626935757572193`*^9}, {3.7627708510092287`*^9, 
   3.762770902407785*^9}, {3.76277179929348*^9, 3.762771800034438*^9}, {
   3.7628413129023113`*^9, 3.76284131999476*^9}, {3.762843408755947*^9, 
   3.762843409129547*^9}, {3.762844593824188*^9, 3.76284459455064*^9}, {
   3.762851310564897*^9, 3.7628513452626543`*^9}, {3.762855042249198*^9, 
   3.762855042887886*^9}, {3.7628699773896217`*^9, 3.7628700048433533`*^9}, {
   3.763193246869672*^9, 3.7631932885385237`*^9}, {3.763193413351872*^9, 
   3.7631934411868467`*^9}, {3.763198723049367*^9, 3.763198725398521*^9}, {
   3.7632157129389343`*^9, 3.763215717492394*^9}, {3.7632165211553783`*^9, 
   3.7632165319698553`*^9}, {3.763216646528513*^9, 3.763216696534143*^9}, {
   3.765784696315958*^9, 3.765784707567667*^9}, {3.765790502921135*^9, 
   3.7657905248017673`*^9}, {3.77056852074228*^9, 3.770568525131774*^9}, {
   3.770984647562096*^9, 3.7709846991780033`*^9}, {3.770984848565778*^9, 
   3.770984857912917*^9}, {3.770985219817625*^9, 3.770985223082101*^9}, {
   3.770985450191299*^9, 3.7709854783842793`*^9}, {3.770992189707036*^9, 
   3.7709921929106007`*^9}, {3.770998586720235*^9, 3.770998630878776*^9}, {
   3.7709994394780807`*^9, 3.7709994676277742`*^9}, {3.771003700248787*^9, 
   3.7710037223506413`*^9}, {3.771062398447394*^9, 3.7710623986299877`*^9}, {
   3.7710682563038692`*^9, 3.771068256495512*^9}, {3.771072269351981*^9, 
   3.7710722697192373`*^9}, {3.771147162046124*^9, 3.771147162172696*^9}, {
   3.7711472456758204`*^9, 3.7711472458133707`*^9}, 3.771147308234413*^9, {
   3.771233665717082*^9, 3.7712336713498*^9}, 3.7712366736666718`*^9, {
   3.7712385928068657`*^9, 3.7712385933026533`*^9}, {3.7741583744973583`*^9, 
   3.774158377341235*^9}, {3.7741805701112127`*^9, 3.774180570637176*^9}, {
   3.774200919292948*^9, 3.774200919668045*^9}, {3.777883096717073*^9, 
   3.777883100983252*^9}, {3.777883938782524*^9, 3.777883944398428*^9}, {
   3.777883984269555*^9, 3.777883995132277*^9}, {3.777884623063896*^9, 
   3.777884623306731*^9}, {3.778342084180808*^9, 3.778342084346471*^9}, {
   3.781613011768538*^9, 3.781613016878516*^9}, {3.781613151868073*^9, 
   3.7816131530434237`*^9}, {3.781625273343232*^9, 3.7816252735176067`*^9}, {
   3.781625334892302*^9, 3.781625349875886*^9}, {3.781625474169647*^9, 
   3.781625480833067*^9}, {3.781625760651558*^9, 3.781625760955124*^9}, {
   3.781684829598894*^9, 3.7816848692840347`*^9}, {3.781684980507568*^9, 
   3.781685005416746*^9}, {3.781859458714085*^9, 3.781859482154834*^9}, {
   3.78186192528793*^9, 3.781861927775096*^9}, {3.781864298646525*^9, 
   3.781864300954008*^9}, {3.781970213486908*^9, 3.781970215916421*^9}, 
   3.7819704760810137`*^9, {3.781983607507371*^9, 3.781983616249364*^9}, {
   3.782027511923891*^9, 3.7820275577518587`*^9}, {3.782035366577327*^9, 
   3.7820353668874407`*^9}, {3.782038024067473*^9, 3.782038026305305*^9}, {
   3.7820399583383408`*^9, 3.782039958527977*^9}, {3.7820408291757793`*^9, 
   3.782040834638109*^9}, {3.782041319700388*^9, 3.7820413199314117`*^9}, {
   3.787916049118555*^9, 3.7879160492610683`*^9}, {3.787917965124247*^9, 
   3.787917965418146*^9}},
 CellLabel->"In[600]:=",
 CellID->931467115,ExpressionUUID->"1038879e-f7ed-41d9-942b-9ec37c223064"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EmbedStructure", "[", "\[IndentingNewLine]", 
   RowBox[{
   "guestUnitsInput_", ",", "\[IndentingNewLine]", 
    "targetPositionsInput_List", ",", "\[IndentingNewLine]", 
    "hostCrystal_String", ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "\[IndentingNewLine]", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"newStructureLabel", "=", 
       RowBox[{"OptionValue", "[", "\"\<NewLabel\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", "invAbort", ",", 
      RowBox[{"conditionFilterQ", "=", "False"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"crystalDataOriginal", "=", "$CrystalData"}], ",", 
      RowBox[{"dataFile", "=", 
       RowBox[{"OptionValue", "[", "\"\<DataFile\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", "hostStructureSize", ",", "newSize", ",", 
      "\[IndentingNewLine]", "probabilities", ",", "units", ",", 
      "distributionList", ",", "i", ",", "\[IndentingNewLine]", "guestUnits", 
      ",", "guestCopies", ",", "crystalLabels", ",", "nonVoidRange", ",", 
      "\[IndentingNewLine]", "makeElementCrystal", ",", "\[IndentingNewLine]", 
      RowBox[{"matchHostSizeQ", "=", 
       RowBox[{"TrueQ", "@", 
        RowBox[{"OptionValue", "[", "\"\<MatchHostSize\>\"", "]"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"anchorShift", "=", 
       RowBox[{"OptionValue", "[", "\"\<RotationAnchorShift\>\"", "]"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"anchorReference", "=", 
       RowBox[{"OptionValue", "[", "\"\<RotationAnchorReference\>\"", "]"}]}],
       ",", "\[IndentingNewLine]", "R", ",", 
      RowBox[{"rotationAxes", "=", 
       RowBox[{"OptionValue", "[", "\"\<RotationAxes\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"targetPositions", "=", "targetPositionsInput"}], ",", 
      "embedLength", ",", "copyTranslations", ",", "hostCoordinates", ",", 
      "mid", ",", "\[IndentingNewLine]", "latticeParameters", ",", 
      "latticeParametersABC", ",", "hostM", ",", "hostMinverse", ",", 
      "targetPositionsCartesian", ",", "\[IndentingNewLine]", "completed", 
      ",", "M", ",", "T", ",", "p", ",", "P", ",", "CheckAndMakeRuleList", 
      ",", "\[IndentingNewLine]", "distortions", ",", "rotations", ",", 
      "performShift", ",", "performTwist", ",", "\[IndentingNewLine]", 
      "conditions", ",", "list", ",", "shift", ",", "twist", ",", 
      "\[IndentingNewLine]", "MakeAlteration", ",", "PrepareAlterationList", 
      ",", "\[IndentingNewLine]", 
      RowBox[{"conditionedDistortionsQ", "=", "False"}], ",", 
      RowBox[{"conditionedRotationsQ", "=", "False"}], ",", 
      "\[IndentingNewLine]", "coordinatesCrystal", ",", 
      "coordinatesCartesian", ",", "\[IndentingNewLine]", 
      "coordinatesCrystalEmbedded", ",", 
      "coordinatesCrystalEmbeddedTranslated", ",", "\[IndentingNewLine]", 
      "newCoordinates", ",", "newCoordinatesCartesian", ",", 
      "\[IndentingNewLine]", "atomDataHost", ",", "atomDataGuest", ",", 
      "joinedAtomData", ",", "boundary", ",", "hostCopy", ",", 
      "newUnitCellAtomCount", ",", "\[IndentingNewLine]", "findOverlap", ",", 
      "intervals", ",", "checks", ",", "atomData1", ",", "atomData2", ",", 
      "xyz1", ",", "xyz2", ",", "nearestList", ",", "overlappingCoordinates", 
      ",", "\[IndentingNewLine]", 
      RowBox[{"overlapPrecedence", "=", 
       RowBox[{"OptionValue", "[", "\"\<OverlapPrecedence\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"overlapRadius", "=", 
       RowBox[{"OptionValue", "[", "\"\<OverlapRadius\>\"", "]"}]}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"--", 
        RowBox[{"-", " ", "Input"}]}], " ", 
       RowBox[{"checks", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"hostCrystal", "===", "\"\<Void\>\""}], ",", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"EmbedStructure", "::", "VoidHost"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"boundary", "=", 
      RowBox[{"OptionValue", "[", "\"\<TrimBoundary\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<Box\>\"", ",", "\"\<None\>\"", ",", "\"\<OuterEdges\>\""}], 
           "}"}], ",", "boundary"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"EmbedStructure", "::", "InvalidTrimming"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"NumericQ", "@", "overlapRadius"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"EmbedStructure", "::", "InvalidOverlapRadius"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"invAbort", "[", "]"}], ":=", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"EmbedStructure", "::", "InvalidGuestInput"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}], ")"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"A", ".", " ", "'"}], 
        RowBox[{"guestUnits", "'"}], " ", "as", " ", "list", " ", "of", " ", 
        "crystals", " ", "or", " ", "elements"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListQ", "@", "guestUnitsInput"}], ",", "\[IndentingNewLine]", 
       "\t", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"guestUnitsInput", "===", 
           RowBox[{"{", "}"}]}], ",", 
          RowBox[{"invAbort", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]",
         "\t", 
        RowBox[{"Which", "[", "\[IndentingNewLine]", "\t", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{"A", ".", "a", ".", " ", "Regular"}], " ", "crystal", " ", 
           "entries"}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
         RowBox[{
          RowBox[{
           RowBox[{"AllTrue", "[", 
            RowBox[{"guestUnitsInput", ",", "StringQ"}], "]"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Depth", "@", "guestUnitsInput"}], "===", "2"}], ")"}]}],
           ",", "\[IndentingNewLine]", "\t", "Null", 
          RowBox[{"(*", " ", 
           RowBox[{"Check", " ", "complete"}], " ", "*)"}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"A", ".", "b", ".", " ", "Conditional"}], " ", "rules"}], 
           " ", "*)"}], "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"AllTrue", "[", 
            RowBox[{"guestUnitsInput", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Head", "[", "#", "]"}], "===", "Rule"}], "&"}]}], 
            "]"}], "&&", "\[IndentingNewLine]", "\t", 
           RowBox[{"AllTrue", "[", 
            RowBox[{
             RowBox[{"guestUnitsInput", "\[LeftDoubleBracket]", 
              RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Head", "[", "#", "]"}], "===", "Condition"}], "&"}]}],
             "]"}]}], ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"conditionFilterQ", "=", "True"}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", "True", ",", 
          RowBox[{"invAbort", "[", "]"}]}], "\[IndentingNewLine]", "\t", 
         "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"B", ".", " ", "'"}], 
         RowBox[{"guestUnits", "'"}], " ", "as", " ", "list", " ", "paired", 
         " ", "with", " ", "probabilities"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Head", "@", "guestUnitsInput"}], "===", "Rule"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"!", 
           RowBox[{"MatchQ", "[", 
            RowBox[{
             RowBox[{"Length", "/@", "guestUnitsInput"}], ",", 
             RowBox[{"x_", "\[Rule]", 
              RowBox[{"x_", "/;", 
               RowBox[{"x", "\[Equal]", "x"}]}]}]}], "]"}]}], ",", 
          RowBox[{"invAbort", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"!", 
           RowBox[{"AllTrue", "[", 
            RowBox[{
             RowBox[{
             "guestUnitsInput", "\[LeftDoubleBracket]", "1", 
              "\[RightDoubleBracket]"}], ",", 
             RowBox[{
              RowBox[{"0.0", "\[LessEqual]", "#", "\[LessEqual]", "1.0"}], 
              "&"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{"EmbedStructure", "::", "InvalidProbabilities"}], "]"}], 
           ";", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Invalid", " ", "input"}], " ", "*)"}], "\[IndentingNewLine]",
        "True", ",", 
       RowBox[{"invAbort", "[", "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MatchQ", "[", 
         RowBox[{
          RowBox[{"Dimensions", "@", "targetPositionsInput"}], ",", 
          RowBox[{"{", 
           RowBox[{"_", ",", "3"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"EmbedStructure", "::", "InvalidTargetPositions"}], "]"}], 
        ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<Host\>\"", ",", "\"\<Unit\>\""}], "}"}], ",", 
          "anchorReference"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"EmbedStructure", "::", "InvalidAnchorReference"}], ",", 
          "anchorReference"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"--", 
         RowBox[{"-", " ", "Checking"}]}], " ", "and", " ", "preparing", " ", 
        
        RowBox[{"embeddings", " ", "--"}]}], "-"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"crystalLabels", "=", 
      RowBox[{"Cases", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"hostCrystal", ",", "guestUnitsInput"}], "}"}], "]"}], ",", 
        "_String", ",", "3"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"crystalLabels", "=", 
      RowBox[{"DeleteCases", "[", 
       RowBox[{"crystalLabels", ",", "\"\<Void\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"makeElementCrystal", "[", "x_", "]"}], ":=", 
      "\[IndentingNewLine]", 
      RowBox[{"ImportCrystalData", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "x", ",", "\"\<P1\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "1.", ",", "1.", ",", "1.", ",", "90.", ",", "90.", ",", "90."}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"<|", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"\"\<Element\>\"", "\[Rule]", "x"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"\"\<FractionalCoordinates\>\"", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0.", ",", "0.", ",", "0."}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"\"\<DisplacementParameters\>\"", "\[Rule]", "0"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"\"\<Type\>\"", "\[Rule]", "\"\<Uiso\>\""}]}], "|>"}], 
         "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<OverwriteWarning\>\"", "\[Rule]", "False"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"makeElementCrystal", "/@", 
      RowBox[{"Intersection", "[", "\[IndentingNewLine]", 
       RowBox[{"crystalLabels", ",", 
        RowBox[{"Keys", "@", "$PeriodicTable"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Scan", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"InputCheck", "[", 
         RowBox[{"\"\<CrystalQ\>\"", ",", "#"}], "]"}], "&"}], ",", 
       "crystalLabels"}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"overlapRadius", "=", 
      RowBox[{"overlapRadius", "/", 
       RowBox[{
        RowBox[{"GetLatticeParameters", "[", "\[IndentingNewLine]", 
         RowBox[{"hostCrystal", ",", 
          RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}], 
        "\[LeftDoubleBracket]", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2", ",", "3"}], "}"}], 
        "\[RightDoubleBracket]"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"hostCopy", "=", 
      RowBox[{"$CrystalData", "[", "hostCrystal", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hostCoordinates", "=", 
      RowBox[{"hostCopy", "\[LeftDoubleBracket]", 
       RowBox[{
       "\"\<AtomData\>\"", ",", "All", ",", "\"\<FractionalCoordinates\>\""}],
        "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"hostStructureSize", "=", 
      RowBox[{
       RowBox[{"hostCopy", "[", "\"\<Notes\>\"", "]"}], "[", 
       "\"\<StructureSize\>\"", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"ListQ", "@", "hostStructureSize"}]}], ",", 
       RowBox[{"hostStructureSize", "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"--", 
         RowBox[{"-", " ", "Preparing"}]}], " ", "target", " ", 
        RowBox[{"positions", " ", "--"}]}], "-"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"matchHostSizeQ", "&&", 
        RowBox[{"hostStructureSize", "=!=", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"copyTranslations", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Table", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"i", ",", "j", ",", "k"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "0", ",", "#1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", "0", ",", "#2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"k", ",", "0", ",", "#3"}], "}"}]}], "]"}], 
             "\[IndentingNewLine]", "&"}], "@@", "hostStructureSize"}], ",", 
           "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"targetPositions", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Outer", "[", "\[IndentingNewLine]", 
            RowBox[{
            "Plus", ",", "copyTranslations", ",", "targetPositions", ",", 
             "1"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"targetPositions", "=", 
         RowBox[{"DeleteCases", "[", 
          RowBox[{"targetPositions", ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
            "\[IndentingNewLine]", 
            RowBox[{"Or", "@@", 
             RowBox[{"MapThread", "[", 
              RowBox[{"Greater", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
                 "hostStructureSize"}], "}"}]}], "]"}]}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"If", " ", "any", " ", "negative", " ", "coordinates"}], 
          ",", " ", 
          RowBox[{
          "assume", " ", "host", " ", "is", " ", "centred", " ", "around", 
           " ", "origin"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"AnyTrue", "[", 
           RowBox[{
            RowBox[{"Flatten", "@", "hostCoordinates"}], ",", 
            RowBox[{
             RowBox[{"#", "<", 
              RowBox[{"-", "1."}]}], "&"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"mid", "=", 
            RowBox[{"\[LeftFloor]", 
             RowBox[{"hostStructureSize", "/", "2."}], "\[RightFloor]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"targetPositions", "=", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "-", "mid"}], "&"}], "/@", 
             "targetPositions"}]}]}]}], "\[IndentingNewLine]", "]"}]}]}], 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"embedLength", "=", 
      RowBox[{"Length", "@", "targetPositions"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Preparing", " ", "list", " ", "to", " ", "be", " ", "used"}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"guestUnits", "=", 
      RowBox[{"Which", "[", "\[IndentingNewLine]", 
       RowBox[{"conditionFilterQ", ",", "\[IndentingNewLine]", 
        RowBox[{"targetPositions", "/.", 
         RowBox[{"Append", "[", 
          RowBox[{"guestUnitsInput", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", "True"}], 
            "\[Rule]", "\"\<Void\>\""}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Head", "@", "guestUnitsInput"}], "===", "Rule"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"probabilities", ",", "units"}], "}"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Keys", "@", "#"}], ",", 
              RowBox[{"Values", "@", "#"}]}], "}"}], "&"}], "@", 
           "guestUnitsInput"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"distributionList", "=", 
          RowBox[{"Round", "[", 
           RowBox[{"probabilities", "*", "embedLength"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Which", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Total", "@", "distributionList"}], "<", "embedLength"}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"While", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Total", "@", "distributionList"}], "<", 
              "embedLength"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"i", "=", 
               RowBox[{"RandomInteger", "[", 
                RowBox[{"{", 
                 RowBox[{"1", ",", 
                  RowBox[{"Length", "@", "distributionList"}]}], "}"}], 
                "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
               "distributionList", "\[LeftDoubleBracket]", "i", 
                "\[RightDoubleBracket]"}], "+=", "1"}]}]}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Total", "@", "distributionList"}], ">", "embedLength"}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"While", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Total", "@", "distributionList"}], ">", 
              "embedLength"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"i", "=", 
               RowBox[{"RandomInteger", "[", 
                RowBox[{"{", 
                 RowBox[{"1", ",", 
                  RowBox[{"Length", "@", "distributionList"}]}], "}"}], 
                "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
               "distributionList", "\[LeftDoubleBracket]", "i", 
                "\[RightDoubleBracket]"}], "-=", "1"}]}]}], "]"}]}], 
          "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"RandomSample", "@", 
          RowBox[{"Flatten", "@", 
           RowBox[{"MapThread", "[", "\[IndentingNewLine]", 
            RowBox[{"ConstantArray", ",", 
             RowBox[{"{", 
              RowBox[{"units", ",", "distributionList"}], "}"}]}], 
            "]"}]}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "True", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"PadRight", "[", 
           RowBox[{"#", ",", "embedLength", ",", "#"}], "]"}], "&"}], "@", 
         "guestUnitsInput"}]}], "\[IndentingNewLine]", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"guestCopies", "=", 
      RowBox[{"$CrystalData", "/@", "guestUnits"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nonVoidRange", "=", 
      RowBox[{"Complement", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Range", "@", "embedLength"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Flatten", "@", 
         RowBox[{"Position", "[", 
          RowBox[{"guestCopies", ",", "_Missing"}], "]"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"nonVoidRange", "===", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"Goto", "[", "\"\<End\>\"", "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"latticeParameters", "=", 
      RowBox[{"GetLatticeParameters", "[", "\[IndentingNewLine]", 
       RowBox[{"hostCrystal", ",", 
        RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"latticeParametersABC", "=", 
      RowBox[{"latticeParameters", "\[LeftDoubleBracket]", 
       RowBox[{";;", "3"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hostM", "=", 
      RowBox[{"GetCrystalMetric", "[", "\[IndentingNewLine]", 
       RowBox[{"hostCrystal", ",", 
        RowBox[{"\"\<ToCartesian\>\"", "\[Rule]", "True"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hostMinverse", "=", 
      RowBox[{"Inverse", "@", "hostM"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"targetPositionsCartesian", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"hostM", ".", "#"}], "&"}], "/@", "targetPositions"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"--", 
         RowBox[{"-", " ", "Distortions"}]}], " ", "and", " ", 
        RowBox[{"rotations", " ", "--"}], " ", "Checks", " ", "and", " ", 
        RowBox[{"preparations", " ", "--"}]}], "-"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MakeAlteration", "[", "c_", "]"}], ":=", "c"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MakeAlteration", "[", 
       RowBox[{"{", 
        RowBox[{"min_", ",", "max_"}], "}"}], "]"}], ":=", 
      RowBox[{"Hold", "@", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"min", ",", "max"}], "}"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MakeAlteration", "[", 
       RowBox[{"{", 
        RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", 
      RowBox[{"MakeAlteration", "/@", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PrepareAlterationList", "[", 
       RowBox[{"conditionsQ_", ",", "ruleList_List"}], "]"}], ":=", 
      RowBox[{"If", "[", 
       RowBox[{"conditionsQ", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"conditions", "=", 
          RowBox[{"Append", "[", 
           RowBox[{"ruleList", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", "True"}], 
             "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"0.", ",", "0.", ",", "0."}], "}"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"list", "=", 
          RowBox[{"Map", "[", 
           RowBox[{"MakeAlteration", ",", "conditions", ",", 
            RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "/.", 
            RowBox[{"ReleaseHold", "@", "list"}]}], "&"}], "/@", 
          "targetPositions"}]}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"ReleaseHold", "@", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"MakeAlteration", "/@", "ruleList"}], ",", "embedLength"}],
           "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"distortions", "=", 
      RowBox[{"OptionValue", "[", "\"\<Distortions\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"performShift", "=", 
      RowBox[{"distortions", "=!=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"rotations", "=", 
      RowBox[{"OptionValue", "[", "\"\<Rotations\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"performTwist", "=", 
      RowBox[{"rotations", "=!=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"rotations", "=", 
      RowBox[{"rotations", "/.", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"c_Condition", "\[Rule]", "r_List"}], ")"}], 
          "\[RuleDelayed]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"N", "@", "c"}], "\[Rule]", 
            RowBox[{"N", "@", "r"}]}], ")"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"r1_", ",", "r2_", ",", "r3_"}], "}"}], "\[RuleDelayed]", 
          RowBox[{"N", "@", 
           RowBox[{"{", 
            RowBox[{"r1", ",", "r2", ",", "r3"}], "}"}]}]}]}], 
        "\[IndentingNewLine]", "}"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"p", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"NumericQ", "[", "#", "]"}], ")"}], "&"}]}], ";", 
     RowBox[{
      RowBox[{"P", "[", "x_", "]"}], ":=", 
      RowBox[{"p", "[", "x", "]"}]}], ";", 
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{"{", 
        RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"p", "[", "x", "]"}], "&&", 
       RowBox[{"p", "[", "y", "]"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"CheckAndMakeRuleList", "[", "input_", "]"}], ":=", 
      RowBox[{"Check", "[", 
       RowBox[{
        RowBox[{"Which", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"input", "===", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ")"}], "||", 
           RowBox[{"SubsetQ", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Integer", ",", "Real", ",", "List"}], "}"}], ",", 
             RowBox[{"Head", "/@", "input"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"{", 
           RowBox[{"False", ",", 
            RowBox[{"CheckAndMakeRuleList", "[", 
             RowBox[{
              RowBox[{"N", "@", "input"}], ",", "\"\<Numeric\>\""}], "]"}]}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"AllTrue", "[", 
              RowBox[{"Input", ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Head", "[", "#", "]"}], "===", "Rule"}], "&"}]}], 
              "]"}], "&&", "\[IndentingNewLine]", 
             RowBox[{"AllTrue", "[", 
              RowBox[{
               RowBox[{"input", "\[LeftDoubleBracket]", 
                RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Head", "[", "#", "]"}], "===", "Condition"}], 
                "&"}]}], "]"}]}], ")"}], "||", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Head", "/@", "input"}], "===", 
             RowBox[{"{", 
              RowBox[{"Condition", ",", "List"}], "}"}]}], ")"}]}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"{", 
           RowBox[{"True", ",", 
            RowBox[{"CheckAndMakeRuleList", "[", 
             RowBox[{
              RowBox[{"N", "@", "input"}], ",", "\"\<Conditions\>\""}], 
             "]"}]}], "}"}], ",", "\[IndentingNewLine]", "True", ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{"EmbedStructure", "::", "InvalidAlteration"}], "]"}], ";",
            "\[IndentingNewLine]", "\t", 
           RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
        RowBox[{"Abort", "[", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{
      RowBox[{"CheckAndMakeRuleList", "[", 
       RowBox[{"input_", ",", "\"\<Conditions\>\""}], "]"}], ":=", 
      RowBox[{"(", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"P", "/@", "#"}], ")"}], "=!=", 
             RowBox[{"{", 
              RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "&"}], "/@", 
           RowBox[{"input", "\[LeftDoubleBracket]", 
            RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{"EmbedStructure", "::", "InvalidAlterationValues"}], 
            "]"}], ";", "\[IndentingNewLine]", "\t", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]",
         "\t", 
        RowBox[{"input", "/.", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x_Condition", "\[Rule]", "y_"}], "}"}], "\[RuleDelayed]", 
          
          RowBox[{"{", 
           RowBox[{"x", "\[Rule]", 
            RowBox[{"N", "@", "y"}]}], "}"}]}]}]}], "\[IndentingNewLine]", 
       "\t", ")"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{
      RowBox[{"CheckAndMakeRuleList", "[", 
       RowBox[{"input_", ",", "\"\<Numeric\>\""}], "]"}], ":=", 
      RowBox[{"(", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"P", "/@", "input"}], ")"}], "=!=", 
           RowBox[{"{", 
            RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{"EmbedStructure", "::", "InvalidAlterationValues"}], 
            "]"}], ";", "\[IndentingNewLine]", "\t", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]",
         "\t", "input"}], "\[IndentingNewLine]", "\t", ")"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"conditionedDistortionsQ", ",", "distortions"}], "}"}], "=", 
      RowBox[{"CheckAndMakeRuleList", "@", "distortions"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"distortions", "=", 
      RowBox[{"PrepareAlterationList", "[", 
       RowBox[{"conditionedDistortionsQ", ",", "distortions"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"OptionValue", "[", "\"\<DistortionType\>\"", "]"}], "===", 
        "\"\<Crystallographic\>\""}], ",", "\[IndentingNewLine]", "Null", ",",
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"OptionValue", "[", "\"\<DistortionType\>\"", "]"}], "===", 
        "\"\<Cartesian\>\""}], ",", "\[IndentingNewLine]", 
       RowBox[{"distortions", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"hostMinverse", ".", "#"}], "&"}], "/@", "distortions"}]}], 
       ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "True", ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"EmbedStructure", "::", "InvalidDistortionType"}], "]"}], 
        ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"conditionedRotationsQ", ",", "rotations"}], "}"}], "=", 
      RowBox[{"CheckAndMakeRuleList", "@", "rotations"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"rotations", "=", 
      RowBox[{"PrepareAlterationList", "[", 
       RowBox[{"conditionedRotationsQ", ",", "rotations"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"--", 
         RowBox[{"-", " ", "Actual"}]}], " ", 
        RowBox[{"tranformation", " ", "--"}], " ", "Loop", " ", "through", 
        " ", "each", " ", "guest", " ", 
        RowBox[{"unit", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"R", "=", 
      RowBox[{"If", "[", 
       RowBox[{"performTwist", ",", "\[IndentingNewLine]", 
        RowBox[{"InputCheck", "[", 
         RowBox[{"\"\<RotationTransformation\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"anchorShift", ",", "anchorReference", ",", 
            RowBox[{"{", "}"}], ",", "rotationAxes"}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"completed", "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"TrueQ", "@", 
        RowBox[{"OptionValue", "[", "\"\<ShowProgress\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PrintTemporary", "[", 
        RowBox[{"ProgressIndicator", "@", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"completed", "/", "embedLength"}], "]"}]}], "]"}]}], "]"}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"M", "=", 
         RowBox[{"GetCrystalMetric", "[", 
          RowBox[{
           RowBox[{
           "guestUnits", "\[LeftDoubleBracket]", "i", 
            "\[RightDoubleBracket]"}], ",", 
           RowBox[{"\"\<ToCartesian\>\"", "\[Rule]", "True"}]}], "]"}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"T", "=", 
         RowBox[{"TranslationTransform", "[", 
          RowBox[{
          "targetPositions", "\[LeftDoubleBracket]", "i", 
           "\[RightDoubleBracket]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"coordinatesCrystal", "=", "\[IndentingNewLine]", 
         RowBox[{"guestCopies", "\[LeftDoubleBracket]", 
          RowBox[{
          "i", ",", "\"\<AtomData\>\"", ",", "All", ",", 
           "\"\<FractionalCoordinates\>\""}], "\[RightDoubleBracket]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"coordinatesCartesian", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"M", ".", "#"}], "&"}], "/@", "coordinatesCrystal"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"coordinatesCrystalEmbedded", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"hostMinverse", ".", "#"}], "\[IndentingNewLine]", "&"}], "/@",
           "coordinatesCartesian"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"coordinatesCrystalEmbeddedTranslated", "=", 
         RowBox[{"T", "/@", "coordinatesCrystalEmbedded"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
        "newCoordinates", "=", "coordinatesCrystalEmbeddedTranslated"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"Optional", ":", " ", 
           RowBox[{"Perform", " ", "shifts"}]}], ",", " ", 
          RowBox[{"twists", " ", "or", " ", "transformations"}]}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"performShift", "||", "performTwist"}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{"Optional", ":", " ", "Rotations"}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{"performTwist", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"twist", "=", 
               RowBox[{"R", "[", 
                RowBox[{
                 RowBox[{
                 "rotations", "\[LeftDoubleBracket]", "i", 
                  "\[RightDoubleBracket]"}], ",", 
                 RowBox[{
                 "targetPositionsCartesian", "\[LeftDoubleBracket]", "i", 
                  "\[RightDoubleBracket]"}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"newCoordinatesCartesian", "=", 
               RowBox[{
                RowBox[{
                 RowBox[{"hostM", ".", "#"}], "&"}], "/@", 
                "newCoordinates"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"newCoordinatesCartesian", "=", 
               RowBox[{"twist", "@", "newCoordinatesCartesian"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"newCoordinates", "=", 
               RowBox[{
                RowBox[{
                 RowBox[{"hostMinverse", ".", "#"}], "&"}], "/@", 
                "newCoordinatesCartesian"}]}]}]}], "\[IndentingNewLine]", 
            "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"Optional", ":", " ", "Distortions"}], " ", "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{"performShift", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"shift", "=", 
               RowBox[{
               "distortions", "\[LeftDoubleBracket]", "i", 
                "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"newCoordinates", "=", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "+", "shift"}], "&"}], "/@", 
                "newCoordinates"}]}]}]}], "]"}]}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"guestCopies", "\[LeftDoubleBracket]", 
          RowBox[{
          "i", ",", "\"\<AtomData\>\"", ",", "All", ",", 
           "\"\<FractionalCoordinates\>\""}], "\[RightDoubleBracket]"}], "=", 
         "newCoordinates"}], ";", "\[IndentingNewLine]", 
        RowBox[{"completed", "++"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", "nonVoidRange"}], "}"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"--", 
         RowBox[{"-", " ", "Merge"}]}], " ", "guest", " ", "units", " ", 
        "with", " ", "traget", " ", 
        RowBox[{"crystal", " ", "--"}]}], "-"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"atomDataHost", "=", 
      RowBox[{"$CrystalData", "[", 
       RowBox[{"hostCrystal", ",", "\"\<AtomData\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"atomDataGuest", "=", 
      RowBox[{"Flatten", "@", 
       RowBox[{"guestCopies", "\[LeftDoubleBracket]", 
        RowBox[{"nonVoidRange", ",", "\"\<AtomData\>\""}], 
        "\[RightDoubleBracket]"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{
       "Remove", " ", "overlapping", " ", "target", " ", "positions"}]}], " ",
       "*)"}], "\[IndentingNewLine]", 
     RowBox[{"joinedAtomData", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<Host\>\"", ",", "\"\<Guest\>\""}], "}"}], ",", 
           "overlapPrecedence"}], "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"A", ".", " ", "No"}], " ", "measure", " ", "taken", " ", 
          "against", " ", "overlapping"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Join", "[", 
         RowBox[{"atomDataHost", ",", "atomDataGuest"}], "]"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"B", ".", " ", "Remove"}], " ", "superpositioned", " ", 
          "atoms"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"findOverlap", "[", 
           RowBox[{"point_", ",", "region_List"}], "]"}], ":=", 
          RowBox[{"(", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"region", "===", 
               RowBox[{"{", "}"}]}], ",", 
              RowBox[{"Return", "@", "Nothing"}]}], "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"intervals", "=", 
             RowBox[{"MapThread", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Interval", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"#1", "-", "#2"}], ",", 
                   RowBox[{"#1", "+", "#2"}]}], "}"}], "]"}], "&"}], ",", 
               RowBox[{"{", 
                RowBox[{"point", ",", "overlapRadius"}], "}"}]}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"checks", "=", 
             RowBox[{"MapThread", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"IntervalMemberQ", "[", 
                 RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", 
               RowBox[{"{", 
                RowBox[{"intervals", ",", 
                 RowBox[{"Transpose", "@", "region"}]}], "}"}]}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"checks", "=", 
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"And", "@@@", 
                RowBox[{"Transpose", "@", "checks"}]}], ",", "True"}], 
              "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"checks", "=!=", 
               RowBox[{"{", "}"}]}], ",", 
              RowBox[{"Part", "[", 
               RowBox[{"region", ",", 
                RowBox[{"Flatten", "@", "checks"}]}], "]"}], ",", "Nothing"}],
              "]"}]}], "\[IndentingNewLine]", ")"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"atomData1", ",", "atomData2"}], "}"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"overlapPrecedence", "===", "\"\<Host\>\""}], ",", 
              "\[IndentingNewLine]", "#", ",", 
              RowBox[{"Reverse", "@", "#"}]}], "]"}], "&"}], "@", 
           RowBox[{"{", 
            RowBox[{"atomDataHost", ",", "atomDataGuest"}], "}"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xyz1", ",", "xyz2"}], "}"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"Part", "[", 
             RowBox[{"#", ",", "All", ",", "\"\<FractionalCoordinates\>\""}], 
             "]"}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"atomData1", ",", "atomData2"}], "}"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"nearestList", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"Nearest", "[", 
             RowBox[{"xyz2", ",", "#", ",", "5"}], "]"}], "&"}], "/@", 
           "xyz1"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"overlappingCoordinates", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"MapThread", "[", "\[IndentingNewLine]", 
             RowBox[{"findOverlap", ",", 
              RowBox[{"{", 
               RowBox[{"xyz1", ",", "nearestList"}], "}"}]}], "]"}], ",", 
            "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"atomData2", "=", 
          RowBox[{"DeleteCases", "[", 
           RowBox[{"atomData2", ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"MemberQ", "[", "\[IndentingNewLine]", 
              RowBox[{"overlappingCoordinates", ",", 
               RowBox[{"x", "[", "\"\<FractionalCoordinates\>\"", "]"}]}], 
              "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"Join", "[", 
          RowBox[{"atomData1", ",", "atomData2"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"Trim", " ", "the", " ", "outer", " ", "boundary"}]}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"boundary", "=!=", "\"\<None\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Which", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"boundary", "===", "\"\<Box\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"joinedAtomData", "=", 
           RowBox[{"DeleteCases", "[", 
            RowBox[{"joinedAtomData", ",", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
              "\[IndentingNewLine]", 
              RowBox[{"Nand", "@@", 
               RowBox[{"MapThread", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"0", "\[LessEqual]", "#1", "<", "#2"}], "&"}], ",", 
                 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
                   "hostStructureSize"}], "}"}]}], "]"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"boundary", "===", "\"\<OuterEdges\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"joinedAtomData", "=", 
           RowBox[{"DeleteCases", "[", 
            RowBox[{"joinedAtomData", ",", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "/;", 
              "\[IndentingNewLine]", 
              RowBox[{"Nand", "@@", 
               RowBox[{"MapThread", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"0", "\[LessEqual]", "#1", "<", "#2"}], "&"}], ",", 
                 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"x", ",", "y"}], "}"}], ",", 
                   RowBox[{"hostStructureSize", "\[LeftDoubleBracket]", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "2"}], "}"}], 
                    "\[RightDoubleBracket]"}]}], "}"}]}], "]"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", "2", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"joinedAtomData", "=", 
         RowBox[{"Select", "[", 
          RowBox[{"joinedAtomData", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"KeyExistsQ", "[", 
             RowBox[{"#", ",", "\"\<FractionalCoordinates\>\""}], "]"}], 
            "&"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"joinedAtomData", "=", 
      RowBox[{"MapAt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"N", "@", 
          RowBox[{"Chop", "[", 
           RowBox[{"#", ",", 
            RowBox[{"10.", "^", 
             RowBox[{"-", "6"}]}]}], "]"}]}], "&"}], ",", "joinedAtomData", 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"All", ",", "\"\<FractionalCoordinates\>\""}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"hostCopy", "[", "\"\<AtomData\>\"", "]"}], "=", 
      "joinedAtomData"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Overwrite", " ", "host", " ", "or", " ", "create", " ", "new", " ", 
       "crystal", " ", "object"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<End\>\"", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"newStructureLabel", "===", "\"\<\>\""}], ",", 
       RowBox[{"newStructureLabel", "=", "hostCrystal"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"$CrystalData", "=", "crystalDataOriginal"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"newSize", "=", 
      RowBox[{"\[LeftCeiling]", 
       RowBox[{"targetPositions", "\[LeftDoubleBracket]", 
        RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], "\[RightCeiling]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"AnyTrue", "[", 
        RowBox[{"newSize", ",", 
         RowBox[{
          RowBox[{"#", "\[Equal]", "0"}], "&"}]}], "]"}], ",", 
       RowBox[{"newSize", "+=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"newUnitCellAtomCount", "=", 
      RowBox[{"\[LeftCeiling]", 
       RowBox[{
        RowBox[{"Length", "@", "joinedAtomData"}], "/", 
        RowBox[{"Times", "@@", "newSize"}]}], "\[RightCeiling]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{
       RowBox[{"hostCopy", "[", "\"\<Notes\>\"", "]"}], ",", 
       RowBox[{
       "\"\<UnitCellAtomsCount\>\"", "\[Rule]", "newUnitCellAtomCount"}]}], 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{
       RowBox[{"hostCopy", "[", "\"\<Notes\>\"", "]"}], ",", 
       RowBox[{"\"\<AsymmetricUnitAtomsCount\>\"", "\[Rule]", "Null"}]}], 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{
       RowBox[{"hostCopy", "[", "\"\<Notes\>\"", "]"}], ",", 
       RowBox[{"\"\<StructureSize\>\"", "\[Rule]", "newSize"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"InputCheck", "[", 
      RowBox[{
      "\"\<Update$CrystalDataFile\>\"", ",", "dataFile", ",", 
       "newStructureLabel", ",", "hostCopy"}], "]"}], ";", 
     "\[IndentingNewLine]", "newStructureLabel"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327662602072*^9, {3.6824963506791697`*^9, 3.6824963547512217`*^9}, {
   3.682496400113083*^9, 3.682496493228437*^9}, 3.682677149488262*^9, {
   3.685082142306231*^9, 3.6850821530756807`*^9}, 3.685084035768195*^9, {
   3.68655238046353*^9, 3.686552426771611*^9}, {3.6865525950866337`*^9, 
   3.686552685595372*^9}, {3.686635545814003*^9, 3.686635612323032*^9}, {
   3.686645933806924*^9, 3.686646007894505*^9}, {3.686646064248117*^9, 
   3.68664607682882*^9}, {3.686655195368894*^9, 3.6866552343027163`*^9}, {
   3.6866553151103287`*^9, 3.686655409251244*^9}, {3.6866554490764103`*^9, 
   3.686655514039054*^9}, {3.686655580018355*^9, 3.686655635546473*^9}, {
   3.686655748745368*^9, 3.686655776590246*^9}, {3.714925556554666*^9, 
   3.714925578583651*^9}, {3.7149256217212152`*^9, 3.714925689133297*^9}, {
   3.7149258652268667`*^9, 3.714925953487383*^9}, {3.71492600096751*^9, 
   3.714926119019596*^9}, {3.714926175338132*^9, 3.714926196305581*^9}, 
   3.7149262352489967`*^9, {3.714926307824396*^9, 3.7149264095004387`*^9}, {
   3.714926450015284*^9, 3.7149265295624437`*^9}, {3.7149265755610447`*^9, 
   3.714926579417263*^9}, {3.714926655695353*^9, 3.714926765295703*^9}, {
   3.714927064423978*^9, 3.714927159155733*^9}, {3.7149272069557753`*^9, 
   3.7149276407442627`*^9}, {3.714927818589819*^9, 3.714927894002508*^9}, {
   3.715014199691877*^9, 3.7150142148573313`*^9}, {3.715064942408142*^9, 
   3.715064943132308*^9}, {3.7153145414034758`*^9, 3.7153145467616673`*^9}, 
   3.715327856633502*^9, {3.7154051731829433`*^9, 3.7154051929183903`*^9}, {
   3.7154052332773438`*^9, 3.715405253294734*^9}, {3.715405360310897*^9, 
   3.7154054069587708`*^9}, {3.717222403726162*^9, 3.717222415552843*^9}, {
   3.717222474077138*^9, 3.717222480379856*^9}, {3.7172225774835167`*^9, 
   3.717222584585285*^9}, {3.717740920496456*^9, 3.71774092050616*^9}, {
   3.7220727239925957`*^9, 3.722072731381322*^9}, {3.722072809534255*^9, 
   3.722072832036512*^9}, {3.722072863802107*^9, 3.722072898519074*^9}, 
   3.726561391058339*^9, 3.727675293483314*^9, 3.727676783958682*^9, {
   3.728106031257224*^9, 3.7281060589380007`*^9}, {3.728106180011772*^9, 
   3.728106202173979*^9}, {3.728106287634863*^9, 3.728106301113369*^9}, {
   3.7281063321779118`*^9, 3.728106374799776*^9}, {3.7281065875793667`*^9, 
   3.728106596424721*^9}, {3.728106935268379*^9, 3.728106947051586*^9}, {
   3.728107085050242*^9, 3.728107225807564*^9}, {3.7281087296199503`*^9, 
   3.7281087417638607`*^9}, {3.728108952031921*^9, 3.728108953406122*^9}, 
   3.728109068830366*^9, {3.728109140732355*^9, 3.728109162684065*^9}, 
   3.7281092259390078`*^9, 3.737968467010312*^9, {3.7455680832964697`*^9, 
   3.745568119889543*^9}, {3.747569432494769*^9, 3.747569442874075*^9}, {
   3.74756949426586*^9, 3.747569500574552*^9}, {3.7475695377399282`*^9, 
   3.7475695465343924`*^9}, {3.7475699175021257`*^9, 3.747569978808453*^9}, {
   3.747570081604307*^9, 3.7475700987875013`*^9}, {3.747570851329288*^9, 
   3.747570860993803*^9}, {3.747570941533657*^9, 3.747570947293482*^9}, {
   3.747570979528742*^9, 3.747570979833435*^9}, {3.7475710460233097`*^9, 
   3.747571047925109*^9}, {3.747571084476077*^9, 3.747571086328722*^9}, {
   3.747571371903867*^9, 3.7475713729193487`*^9}, {3.747571561267179*^9, 
   3.747571562589777*^9}, {3.747572757880087*^9, 3.747572827753377*^9}, {
   3.747572862364382*^9, 3.747572879792859*^9}, {3.759519240146062*^9, 
   3.759519241328768*^9}, {3.760949958969305*^9, 3.760949981683304*^9}, {
   3.761293214948368*^9, 3.761293216277224*^9}, {3.7612932491535683`*^9, 
   3.761293266239336*^9}, {3.761301744392057*^9, 3.761301872616757*^9}, {
   3.761302012143058*^9, 3.761302053792026*^9}, {3.761302140612296*^9, 
   3.761302184387752*^9}, {3.761302215653625*^9, 3.761302371834009*^9}, {
   3.761305350267173*^9, 3.761305352016643*^9}, {3.761305433233409*^9, 
   3.761305456926918*^9}, {3.761305519231518*^9, 3.76130551950924*^9}, {
   3.761305575630074*^9, 3.761305600715294*^9}, {3.761305760897593*^9, 
   3.7613057700955153`*^9}, {3.7613058045618467`*^9, 
   3.7613058280625963`*^9}, {3.761305862695778*^9, 3.7613058768953533`*^9}, {
   3.7613059150793467`*^9, 3.761305977708088*^9}, {3.761306013453003*^9, 
   3.7613060187081127`*^9}, {3.761306086451448*^9, 3.761306090626646*^9}, {
   3.761306193185049*^9, 3.761306197742535*^9}, {3.761306300998806*^9, 
   3.761306310525038*^9}, {3.761306421973971*^9, 3.761306423331564*^9}, {
   3.76130651549807*^9, 3.761306533887826*^9}, {3.7613065840486107`*^9, 
   3.7613066639010563`*^9}, {3.761306716374682*^9, 3.7613067441575327`*^9}, {
   3.761306774355764*^9, 3.761306834154875*^9}, {3.7613070302953243`*^9, 
   3.76130705839765*^9}, {3.7613083285830812`*^9, 3.7613083680112553`*^9}, {
   3.761309155307118*^9, 3.761309204871757*^9}, {3.7613092929652863`*^9, 
   3.761309379971908*^9}, {3.761382820081716*^9, 3.761382834766548*^9}, {
   3.76138315468125*^9, 3.761383157817292*^9}, {3.761383193862713*^9, 
   3.76138328048495*^9}, 3.7613833364532213`*^9, 3.7613877480927563`*^9, {
   3.761416820764223*^9, 3.76141686629681*^9}, {3.761416902523122*^9, 
   3.7614169275690813`*^9}, 3.7614169932958717`*^9, {3.7614617979066343`*^9, 
   3.761461800263917*^9}, 3.76146194226432*^9, {3.7616505028255873`*^9, 
   3.761650575813095*^9}, {3.761650666739345*^9, 3.761650703178874*^9}, {
   3.7616507610057287`*^9, 3.7616508488080893`*^9}, {3.762102493064165*^9, 
   3.7621026170854588`*^9}, {3.762102653458495*^9, 3.7621028575895653`*^9}, {
   3.762102891406652*^9, 3.762103017523076*^9}, {3.762103123797048*^9, 
   3.7621031314881067`*^9}, {3.762103164532901*^9, 3.762103238945119*^9}, 
   3.762103317592228*^9, {3.7621033696723433`*^9, 3.762103462434218*^9}, {
   3.762103629759901*^9, 3.762103754707251*^9}, {3.7621038014130983`*^9, 
   3.762103806410224*^9}, {3.7621038468918457`*^9, 3.762103858985067*^9}, {
   3.7621039084031973`*^9, 3.76210391519419*^9}, {3.762104152869686*^9, 
   3.7621041787316008`*^9}, {3.7621042160107718`*^9, 3.762104237466498*^9}, {
   3.762104267531948*^9, 3.7621043406482563`*^9}, {3.76210454290287*^9, 
   3.762104646913961*^9}, {3.76210473605682*^9, 3.7621047956336927`*^9}, {
   3.7621060525237923`*^9, 3.762106102851467*^9}, {3.762106153193736*^9, 
   3.762106156977296*^9}, {3.762106233845892*^9, 3.7621063149591503`*^9}, {
   3.762106412252318*^9, 3.7621064325936728`*^9}, {3.7624981476201353`*^9, 
   3.7624981709837217`*^9}, {3.762498245640142*^9, 3.762498256352324*^9}, 
   3.76249833634416*^9, {3.762498474294816*^9, 3.7624984809086227`*^9}, {
   3.7624985993459177`*^9, 3.762498628779851*^9}, {3.762498829247604*^9, 
   3.762498890795834*^9}, {3.7624990015344687`*^9, 3.7624991378944902`*^9}, {
   3.762499186464332*^9, 3.762499199075432*^9}, {3.7624992314237423`*^9, 
   3.762499305348139*^9}, {3.7624994277885313`*^9, 3.7624994319119663`*^9}, 
   3.762499469112893*^9, {3.762502717125535*^9, 3.762502723358025*^9}, {
   3.762502796619301*^9, 3.762502813165999*^9}, 3.7625029804272127`*^9, {
   3.762582269029249*^9, 3.762582285160461*^9}, {3.762582363020563*^9, 
   3.762582371209998*^9}, {3.76258241136819*^9, 3.76258243328338*^9}, {
   3.762582502805962*^9, 3.7625825046410522`*^9}, {3.762582558771358*^9, 
   3.762582558915724*^9}, {3.762582622766678*^9, 3.762582668909976*^9}, {
   3.762583498732263*^9, 3.762583499808262*^9}, {3.7625868909898567`*^9, 
   3.7625869272595243`*^9}, {3.7625875285339193`*^9, 
   3.7625875336261053`*^9}, {3.762587894113284*^9, 3.762587923075026*^9}, 
   3.76258809506489*^9, {3.762588155350531*^9, 3.762588180402031*^9}, {
   3.762588260279954*^9, 3.7625882886755667`*^9}, {3.762588346744122*^9, 
   3.762588371114582*^9}, {3.762588435316472*^9, 3.762588436252501*^9}, {
   3.762588517935748*^9, 3.7625885463706617`*^9}, {3.7625885807674*^9, 
   3.762588636583043*^9}, {3.762588669342952*^9, 3.7625887225407887`*^9}, {
   3.762588756779875*^9, 3.762588791529193*^9}, {3.762588922131773*^9, 
   3.762588924291471*^9}, {3.76258907036896*^9, 3.7625890745146837`*^9}, {
   3.7625895442111187`*^9, 3.762589617782276*^9}, 3.762589672277542*^9, {
   3.7625897530368357`*^9, 3.7625898259629583`*^9}, 3.7625898720272217`*^9, {
   3.762677526601284*^9, 3.762677540127564*^9}, {3.7626775863101673`*^9, 
   3.7626776872626953`*^9}, {3.7626777357149353`*^9, 3.762677737203546*^9}, {
   3.76267779801667*^9, 3.762677862846698*^9}, {3.762677910666745*^9, 
   3.762677940490479*^9}, {3.7626780495680513`*^9, 3.7626780497560883`*^9}, {
   3.762678463334445*^9, 3.762678487964533*^9}, {3.7626793924788427`*^9, 
   3.762679408974279*^9}, {3.762679463677194*^9, 3.762679519637199*^9}, 
   3.7626795637191353`*^9, {3.7626799410582647`*^9, 3.762679971916801*^9}, {
   3.7626800059954567`*^9, 3.76268004651369*^9}, {3.7626925595935926`*^9, 
   3.762692562134397*^9}, {3.762692675814475*^9, 3.762692677636441*^9}, {
   3.762693290932212*^9, 3.762693334938401*^9}, {3.762693365224998*^9, 
   3.762693391462492*^9}, {3.762693515415144*^9, 3.762693522925078*^9}, {
   3.762693621956568*^9, 3.762693686752577*^9}, {3.762770920087637*^9, 
   3.7627710451232033`*^9}, {3.762771135383432*^9, 3.76277114985949*^9}, {
   3.762771252361383*^9, 3.762771272566834*^9}, {3.7627716580427732`*^9, 
   3.762771710541195*^9}, 3.762771862467991*^9, {3.7627719062598333`*^9, 
   3.7627719503838043`*^9}, {3.762771987567686*^9, 3.762772017414404*^9}, 
   3.7627720616618547`*^9, {3.762772940184148*^9, 3.76277297496988*^9}, {
   3.762773049524953*^9, 3.762773052855938*^9}, 3.7627735693834248`*^9, {
   3.7627736256459637`*^9, 3.7627736267320766`*^9}, {3.762841968043556*^9, 
   3.762841971689434*^9}, {3.7628420791683397`*^9, 3.762842152463503*^9}, {
   3.76284221049533*^9, 3.7628422427149963`*^9}, {3.7628422931097097`*^9, 
   3.762842294171431*^9}, {3.762843140783256*^9, 3.762843174540785*^9}, 
   3.76284323171906*^9, 3.7628432620848923`*^9, 3.762843472440621*^9, {
   3.762843530593953*^9, 3.7628435308216457`*^9}, {3.7628435699325647`*^9, 
   3.762843577277005*^9}, {3.762843736593616*^9, 3.7628437506719217`*^9}, {
   3.762843794550819*^9, 3.762843898821501*^9}, 3.76284399421274*^9, {
   3.762844053296976*^9, 3.7628441198318453`*^9}, {3.762844193463323*^9, 
   3.762844196869841*^9}, {3.7628442292314873`*^9, 3.762844230656508*^9}, {
   3.762844292214486*^9, 3.762844478110961*^9}, 3.7628446048960114`*^9, {
   3.762855052141629*^9, 3.762855055454192*^9}, {3.762855485339323*^9, 
   3.76285551580307*^9}, {3.762855575097687*^9, 3.762855598848749*^9}, {
   3.762855633761406*^9, 3.762855680941841*^9}, {3.762855838827366*^9, 
   3.762855863378171*^9}, {3.762856143012158*^9, 3.762856217441588*^9}, {
   3.762858311081154*^9, 3.7628583120304327`*^9}, {3.76285835880651*^9, 
   3.7628583684319677`*^9}, {3.7628607058960047`*^9, 3.7628607075987663`*^9}, 
   3.762866915430805*^9, {3.762866967761737*^9, 3.7628670119373503`*^9}, {
   3.762867059688072*^9, 3.76286708299951*^9}, {3.762867169663844*^9, 
   3.7628671824696083`*^9}, {3.762867374682057*^9, 3.7628675208138857`*^9}, {
   3.7628677656632967`*^9, 3.76286776963317*^9}, 3.7628678073862047`*^9, {
   3.7628678779517183`*^9, 3.7628679508301373`*^9}, {3.7628680210441303`*^9, 
   3.762868094231029*^9}, {3.762868251262959*^9, 3.762868259793219*^9}, {
   3.762868791577395*^9, 3.762868801797572*^9}, {3.762869160895444*^9, 
   3.7628692036455936`*^9}, {3.762869237734138*^9, 3.762869244027247*^9}, {
   3.762869321441249*^9, 3.762869356529216*^9}, 3.762869394554852*^9, {
   3.7628695579991703`*^9, 3.762869577148713*^9}, {3.7628696201495237`*^9, 
   3.762869692378208*^9}, {3.762869737186467*^9, 3.762869797397738*^9}, {
   3.76286990999438*^9, 3.762869964227026*^9}, {3.762870015871686*^9, 
   3.7628700317938643`*^9}, {3.762870134176379*^9, 3.7628701628786993`*^9}, {
   3.7628702301619473`*^9, 3.762870294612823*^9}, {3.762870473741437*^9, 
   3.762870479995652*^9}, {3.762870587287355*^9, 3.762870599093995*^9}, {
   3.762870644033637*^9, 3.762870722355867*^9}, {3.762870795124795*^9, 
   3.762870954982074*^9}, {3.762871004526711*^9, 3.762871033283514*^9}, 
   3.762871402901025*^9, {3.7628714747887173`*^9, 3.76287147568962*^9}, {
   3.762871515626314*^9, 3.762871608409374*^9}, {3.7628716725028067`*^9, 
   3.762871672685828*^9}, {3.762871708403867*^9, 3.762871949455731*^9}, {
   3.762871987106526*^9, 3.762872039287641*^9}, {3.762872081056032*^9, 
   3.7628721219021072`*^9}, {3.762872240222788*^9, 3.7628722403962383`*^9}, {
   3.762872351507962*^9, 3.762872395801134*^9}, 3.762872463195447*^9, {
   3.7628725183533173`*^9, 3.762872520397197*^9}, {3.762872600030006*^9, 
   3.762872679985482*^9}, {3.76287274173201*^9, 3.7628729286886177`*^9}, {
   3.7628729820175037`*^9, 3.762872993276016*^9}, {3.762873223952983*^9, 
   3.7628732645793457`*^9}, {3.762873306231241*^9, 3.762873319451611*^9}, {
   3.762873361710734*^9, 3.762873403405033*^9}, {3.762873480577733*^9, 
   3.762873514995167*^9}, {3.762873569354168*^9, 3.762873577454311*^9}, {
   3.762873622047131*^9, 3.762873626076936*^9}, {3.762873681562976*^9, 
   3.762873804669633*^9}, {3.762873874461594*^9, 3.7628739019298487`*^9}, {
   3.762873942034061*^9, 3.7628739499439297`*^9}, {3.762873998120645*^9, 
   3.7628740004947042`*^9}, {3.762874041584938*^9, 3.762874226449202*^9}, {
   3.762874271070135*^9, 3.762874277282874*^9}, {3.7628744181917953`*^9, 
   3.762874463581009*^9}, {3.762874515579569*^9, 3.762874543507349*^9}, {
   3.76287458123426*^9, 3.7628746222412777`*^9}, {3.762874671856251*^9, 
   3.762874677335286*^9}, {3.7628747670478163`*^9, 3.7628748156535063`*^9}, {
   3.7628749407155533`*^9, 3.762874952138845*^9}, {3.762875025608852*^9, 
   3.762875041191021*^9}, {3.762875073078917*^9, 3.762875088968438*^9}, {
   3.762875131293384*^9, 3.762875142717152*^9}, {3.762875189893785*^9, 
   3.762875228139299*^9}, {3.762875264602992*^9, 3.762875384703268*^9}, {
   3.7628754209230127`*^9, 3.7628754380168858`*^9}, {3.762875492924176*^9, 
   3.762875496297366*^9}, {3.7628755457294416`*^9, 3.762875553524787*^9}, {
   3.762875599213748*^9, 3.762875600597042*^9}, {3.762875632421335*^9, 
   3.76287563573954*^9}, {3.762875682395001*^9, 3.7628756847140007`*^9}, {
   3.7628757164263697`*^9, 3.7628757229691467`*^9}, {3.76287605211134*^9, 
   3.762876097288445*^9}, {3.762876135954174*^9, 3.762876195935535*^9}, {
   3.762876241711833*^9, 3.7628762494931927`*^9}, {3.762876384663487*^9, 
   3.762876479009344*^9}, {3.76287655336906*^9, 3.76287656601012*^9}, {
   3.762876596400938*^9, 3.762876634383113*^9}, {3.762876673710348*^9, 
   3.76287675187472*^9}, {3.762876791877123*^9, 3.762876819041494*^9}, {
   3.762876885505245*^9, 3.762876891022944*^9}, {3.762876937073703*^9, 
   3.7628771938795424`*^9}, 3.762877403929391*^9, {3.762877434780368*^9, 
   3.7628775218664*^9}, {3.762877580715034*^9, 3.762877631590403*^9}, 
   3.7628776663055677`*^9, {3.7628777044483967`*^9, 3.762877725317191*^9}, {
   3.762877789695075*^9, 3.762877793110955*^9}, 3.7628778423255033`*^9, {
   3.762877979538982*^9, 3.7628779882143593`*^9}, {3.762878277816328*^9, 
   3.76287833239133*^9}, {3.7628784710060663`*^9, 3.762878506972105*^9}, {
   3.7628785962592087`*^9, 3.762878801387622*^9}, {3.7628788387986393`*^9, 
   3.762878864223701*^9}, {3.762878899289844*^9, 3.7628792672629423`*^9}, {
   3.762879302100252*^9, 3.762879330120636*^9}, {3.7628793752089863`*^9, 
   3.762879376916254*^9}, {3.7628794219805403`*^9, 3.7628794729603786`*^9}, {
   3.7628795152925262`*^9, 3.762879545039997*^9}, {3.762879584664082*^9, 
   3.762879627053114*^9}, {3.762880097039065*^9, 3.7628801883595533`*^9}, {
   3.762880273098674*^9, 3.7628802847264767`*^9}, {3.762880640968452*^9, 
   3.7628806418162117`*^9}, {3.76288069938903*^9, 3.762880720578525*^9}, {
   3.7629306710210238`*^9, 3.762930744528843*^9}, {3.762930837033882*^9, 
   3.762930870447606*^9}, {3.762938095787146*^9, 3.7629381017712297`*^9}, {
   3.762938161287774*^9, 3.762938215926861*^9}, {3.7629382564830637`*^9, 
   3.762938281171281*^9}, {3.7629389096948557`*^9, 3.762938941986907*^9}, {
   3.762939377043207*^9, 3.762939380889515*^9}, {3.762939412233852*^9, 
   3.7629394140804863`*^9}, {3.762939511271194*^9, 3.7629395163268213`*^9}, {
   3.76293958614294*^9, 3.762939693652255*^9}, {3.7629397253426237`*^9, 
   3.7629398093529587`*^9}, {3.762939861473041*^9, 3.762939909743734*^9}, {
   3.762939955718019*^9, 3.7629399593092413`*^9}, {3.7631071345625963`*^9, 
   3.76310714375867*^9}, 3.763109010813422*^9, {3.7631092057400208`*^9, 
   3.7631094289466867`*^9}, {3.76310946139357*^9, 3.763109464777589*^9}, {
   3.763109609170587*^9, 3.763109612134158*^9}, {3.7631096445197697`*^9, 
   3.7631096660472937`*^9}, {3.763109717543357*^9, 3.7631097614270906`*^9}, {
   3.763113751318272*^9, 3.76311377566158*^9}, {3.763113847940092*^9, 
   3.763113852041291*^9}, {3.7631139697602367`*^9, 3.763114015545051*^9}, {
   3.76311408524647*^9, 3.763114095717828*^9}, {3.7631141392049513`*^9, 
   3.763114244720681*^9}, {3.763114313616914*^9, 3.763114335329433*^9}, {
   3.763114428789543*^9, 3.763114439084303*^9}, {3.763114657900378*^9, 
   3.76311466123164*^9}, {3.763114804404273*^9, 3.763114830891836*^9}, 
   3.76311492103691*^9, {3.7631149536921864`*^9, 3.7631149574953737`*^9}, 
   3.763115194117029*^9, {3.763117481664586*^9, 3.7631175073895884`*^9}, {
   3.763117541659478*^9, 3.763117546457182*^9}, {3.763118366263104*^9, 
   3.763118424888715*^9}, {3.7631184630443068`*^9, 3.763118556777619*^9}, {
   3.763118597267194*^9, 3.76311860862567*^9}, {3.763118669217677*^9, 
   3.763118678281003*^9}, {3.763118760253681*^9, 3.7631187818044777`*^9}, {
   3.763118852675838*^9, 3.763118874530364*^9}, {3.763118914883135*^9, 
   3.7631189239615602`*^9}, {3.76311903172056*^9, 3.763119095181788*^9}, {
   3.763119136625108*^9, 3.7631191532754908`*^9}, {3.763125215957747*^9, 
   3.763125237860512*^9}, {3.763125325265283*^9, 3.7631253453669357`*^9}, {
   3.763125382704082*^9, 3.763125403991729*^9}, {3.763125717784651*^9, 
   3.7631257305215178`*^9}, {3.763125776152041*^9, 3.763125776309593*^9}, {
   3.763125812131754*^9, 3.763125910381338*^9}, {3.7631259626923637`*^9, 
   3.7631259841422453`*^9}, {3.763126035211269*^9, 3.763126036239753*^9}, {
   3.7631261701418447`*^9, 3.763126180115364*^9}, {3.763126279914678*^9, 
   3.7631263241774693`*^9}, {3.7631263669207563`*^9, 3.763126393551303*^9}, {
   3.7631264476942673`*^9, 3.7631264609978867`*^9}, {3.76312650025568*^9, 
   3.763126573461645*^9}, {3.7631266195254803`*^9, 3.763126623002365*^9}, {
   3.7631272758447733`*^9, 3.763127309275083*^9}, {3.7631275505577602`*^9, 
   3.7631275721993113`*^9}, {3.763127617738536*^9, 3.76312765133419*^9}, {
   3.76312787086615*^9, 3.763127891746153*^9}, {3.763127975647997*^9, 
   3.763127977794919*^9}, {3.763128010713504*^9, 3.763128021567861*^9}, {
   3.763128246913335*^9, 3.763128318277091*^9}, {3.7631285502832937`*^9, 
   3.7631285749907627`*^9}, {3.7631286142239313`*^9, 3.763128621583006*^9}, {
   3.763128714046776*^9, 3.763128718181245*^9}, {3.7631297011891193`*^9, 
   3.763129721772406*^9}, {3.763129763584149*^9, 3.763129768832306*^9}, {
   3.763129847014283*^9, 3.76312986407797*^9}, {3.763129927313559*^9, 
   3.7631300438891373`*^9}, {3.763130179369866*^9, 3.7631302060726833`*^9}, {
   3.763130245968479*^9, 3.763130335547166*^9}, {3.7631303657106133`*^9, 
   3.7631303802433157`*^9}, {3.7631304247119904`*^9, 3.763130455888669*^9}, {
   3.763130521792214*^9, 3.7631305406864758`*^9}, {3.7631305965443153`*^9, 
   3.763130660171047*^9}, {3.763130706718121*^9, 3.763130829968198*^9}, {
   3.76313096353717*^9, 3.763131008181438*^9}, {3.763131576616784*^9, 
   3.763131593542778*^9}, {3.7631317388395023`*^9, 3.7631317501629963`*^9}, {
   3.763131892771203*^9, 3.763131892992467*^9}, {3.763132007751411*^9, 
   3.763132018592195*^9}, {3.763132085855482*^9, 3.763132118941799*^9}, {
   3.76313225950935*^9, 3.7631322966720047`*^9}, {3.763132346415104*^9, 
   3.763132378887425*^9}, {3.763132545890561*^9, 3.763132580825664*^9}, {
   3.763132747293684*^9, 3.7631328034437017`*^9}, {3.7631329730980597`*^9, 
   3.76313297389685*^9}, {3.763133056669232*^9, 3.763133188717005*^9}, {
   3.763133935427595*^9, 3.763133935595489*^9}, {3.763187227503315*^9, 
   3.763187255977352*^9}, {3.763187457039694*^9, 3.763187459878124*^9}, {
   3.7631875802780323`*^9, 3.763187625750729*^9}, {3.7631876604547977`*^9, 
   3.763187695133733*^9}, {3.763188212310367*^9, 3.763188223797275*^9}, {
   3.7631884932904*^9, 3.76318850267904*^9}, {3.763188670813423*^9, 
   3.763188686690158*^9}, {3.763188967603389*^9, 3.763188971753989*^9}, {
   3.763189112892579*^9, 3.7631891137284737`*^9}, {3.763189143865053*^9, 
   3.763189176599208*^9}, {3.7631892258070707`*^9, 3.7631892574490843`*^9}, {
   3.763189493136047*^9, 3.7631894989397297`*^9}, {3.7631896003011436`*^9, 
   3.7631896082865353`*^9}, {3.763189847050942*^9, 3.763189849706423*^9}, {
   3.763189984007719*^9, 3.763189987835786*^9}, {3.763190061651286*^9, 
   3.7631900848977213`*^9}, {3.7631901264431887`*^9, 3.763190167151824*^9}, {
   3.763190252366623*^9, 3.763190261428344*^9}, {3.763190406913002*^9, 
   3.763190430824905*^9}, {3.763190468801447*^9, 3.763190469190565*^9}, {
   3.763190622378428*^9, 3.763190630267044*^9}, {3.763190661152936*^9, 
   3.7631906670871983`*^9}, {3.763190724114277*^9, 3.763190829622073*^9}, {
   3.763190883250929*^9, 3.763190886503768*^9}, {3.763190917838767*^9, 
   3.7631909193172626`*^9}, {3.763191046078986*^9, 3.763191055993108*^9}, {
   3.7631911205882196`*^9, 3.763191168179716*^9}, {3.763191227422003*^9, 
   3.763191252791547*^9}, {3.763191329027898*^9, 3.763191469921081*^9}, {
   3.763191504955181*^9, 3.763191539257966*^9}, {3.7631915873067007`*^9, 
   3.7631916335588217`*^9}, {3.7631916944415503`*^9, 3.763191763003018*^9}, {
   3.763191812380579*^9, 3.763191882334046*^9}, {3.763191928001873*^9, 
   3.763191961271028*^9}, {3.763192105280212*^9, 3.76319210639229*^9}, {
   3.763192138213997*^9, 3.7631921652834473`*^9}, {3.7631927565237713`*^9, 
   3.763192778410982*^9}, {3.763193346873497*^9, 3.763193398671426*^9}, {
   3.763193458829427*^9, 3.7631934913421307`*^9}, {3.763193543342906*^9, 
   3.763193585165707*^9}, {3.763193615957055*^9, 3.7631936161804447`*^9}, {
   3.763193647289423*^9, 3.76319364936325*^9}, {3.763193721572187*^9, 
   3.763193723439939*^9}, {3.7631938176581697`*^9, 3.763193824975697*^9}, {
   3.763193862394617*^9, 3.763193926233437*^9}, {3.763194023337283*^9, 
   3.763194034343214*^9}, {3.763194615618539*^9, 3.763194619036454*^9}, {
   3.763194658740366*^9, 3.763194692672081*^9}, {3.763194755420477*^9, 
   3.7631947699246273`*^9}, {3.763195334094963*^9, 3.763195338909153*^9}, {
   3.7631975202638683`*^9, 3.763197548230151*^9}, {3.763197626392477*^9, 
   3.7631976888784437`*^9}, {3.763197723624353*^9, 3.7631977253245687`*^9}, {
   3.763197890121645*^9, 3.763197953778249*^9}, {3.763198031792822*^9, 
   3.763198054939842*^9}, {3.76321612243653*^9, 3.763216135394136*^9}, {
   3.763216452860265*^9, 3.763216512562997*^9}, {3.763216619929467*^9, 
   3.7632166276714373`*^9}, {3.76321670921714*^9, 3.763216717734356*^9}, {
   3.7632168429845753`*^9, 3.763216860041214*^9}, {3.763219483617481*^9, 
   3.763219484646124*^9}, 3.7637480980874977`*^9, 3.7656132382169933`*^9, {
   3.7656132847518272`*^9, 3.765613290129304*^9}, {3.765613322429381*^9, 
   3.765613322559623*^9}, {3.7656133923118057`*^9, 3.765613401977973*^9}, {
   3.765617239109764*^9, 3.765617256380885*^9}, {3.765617301508347*^9, 
   3.765617328981081*^9}, {3.765617359205852*^9, 3.7656173781026287`*^9}, {
   3.765784620232706*^9, 3.765784689781252*^9}, {3.765784870221239*^9, 
   3.765784892170088*^9}, {3.7657850012632504`*^9, 3.765785001478718*^9}, {
   3.765786854221891*^9, 3.76578701567861*^9}, {3.76578707263732*^9, 
   3.765787072783017*^9}, {3.7657872632027473`*^9, 3.7657872785712852`*^9}, {
   3.765787316876203*^9, 3.765787339591667*^9}, {3.765787373522758*^9, 
   3.7657874200352573`*^9}, {3.765787450044582*^9, 3.7657874663117313`*^9}, {
   3.7657874982950697`*^9, 3.7657875068386927`*^9}, {3.765787587486917*^9, 
   3.765787617689131*^9}, {3.765787781196168*^9, 3.765787815427401*^9}, {
   3.765787850054681*^9, 3.765787856021174*^9}, {3.765787891382762*^9, 
   3.765787954740789*^9}, {3.7657879904948072`*^9, 3.765787992037723*^9}, {
   3.7657880294366407`*^9, 3.765788030041398*^9}, 3.765788076272851*^9, 
   3.765788126200704*^9, {3.765788276626862*^9, 3.7657883998158607`*^9}, {
   3.7657884591537046`*^9, 3.76578846122993*^9}, {3.765788571737989*^9, 
   3.7657885749533253`*^9}, {3.7657886084416723`*^9, 3.765788610521564*^9}, {
   3.7657886533592777`*^9, 3.765788689744301*^9}, {3.765788727265636*^9, 
   3.765788823548274*^9}, {3.76578893364857*^9, 3.7657890745241117`*^9}, {
   3.765789321204677*^9, 3.765789323836171*^9}, {3.765789383162809*^9, 
   3.76578939527948*^9}, 3.765789506485285*^9, {3.765789559942175*^9, 
   3.76578957941516*^9}, {3.765789610372075*^9, 3.7657896215452633`*^9}, {
   3.765789652426416*^9, 3.765789670747816*^9}, {3.765789726199593*^9, 
   3.7657897711495047`*^9}, {3.7657898329974194`*^9, 3.76578983839888*^9}, {
   3.765789882716711*^9, 3.765790118721635*^9}, {3.765790156394946*^9, 
   3.765790159211773*^9}, {3.765790226468259*^9, 3.7657902461019993`*^9}, {
   3.765790534617981*^9, 3.765790570961727*^9}, {3.765790646513578*^9, 
   3.765790648697698*^9}, {3.766133130511834*^9, 3.766133191520647*^9}, {
   3.766133393203856*^9, 3.766133397097556*^9}, {3.7661334909023046`*^9, 
   3.766133502477824*^9}, {3.766133547276335*^9, 3.766133599590375*^9}, {
   3.766133647697535*^9, 3.766133752010853*^9}, {3.76613385276198*^9, 
   3.766133853360251*^9}, {3.766136088935584*^9, 3.766136089197337*^9}, {
   3.767418339006063*^9, 3.767418373391323*^9}, {3.76741865255199*^9, 
   3.767418659977913*^9}, {3.767418772659123*^9, 3.767418776351082*^9}, {
   3.7674188354921303`*^9, 3.767418843488943*^9}, {3.767419391561277*^9, 
   3.7674193933080072`*^9}, {3.767419477135425*^9, 3.767419478396847*^9}, {
   3.7674212389643307`*^9, 3.767421243094317*^9}, {3.767421388067708*^9, 
   3.767421408273843*^9}, 3.7674214825380497`*^9, {3.767421748315342*^9, 
   3.76742176753896*^9}, {3.7674221360416183`*^9, 3.767422150623794*^9}, {
   3.767422873176009*^9, 3.7674228861233063`*^9}, {3.767423176220377*^9, 
   3.767423288843697*^9}, {3.767423319599174*^9, 3.7674233300793962`*^9}, {
   3.767423656813138*^9, 3.767423657009758*^9}, {3.7674242736796913`*^9, 
   3.767424282134386*^9}, 3.767424359730546*^9, {3.767425400287179*^9, 
   3.767425438842709*^9}, {3.7674254732233057`*^9, 3.7674254753341827`*^9}, {
   3.76742591047171*^9, 3.767426135839841*^9}, {3.767426781512274*^9, 
   3.767426781644022*^9}, {3.7674268512227297`*^9, 3.767426853051519*^9}, {
   3.76742759519308*^9, 3.767427620099413*^9}, {3.767427894905375*^9, 
   3.767427898429635*^9}, {3.767428043794436*^9, 3.767428052749457*^9}, {
   3.767429496716354*^9, 3.76742950712227*^9}, {3.7705685388204727`*^9, 
   3.77056855609783*^9}, {3.770985255621977*^9, 3.77098533433296*^9}, {
   3.7709853979701557`*^9, 3.770985429562252*^9}, {3.7709854802462187`*^9, 
   3.77098548903078*^9}, {3.770992216824781*^9, 3.770992217581645*^9}, {
   3.770992263809794*^9, 3.770992274212365*^9}, {3.770992316847095*^9, 
   3.7709923668539667`*^9}, {3.770992843329639*^9, 3.770992847623066*^9}, {
   3.7709937469717007`*^9, 3.770993754167997*^9}, {3.77099404442232*^9, 
   3.770994057522037*^9}, {3.7709942504947023`*^9, 3.770994251172936*^9}, {
   3.770994313420412*^9, 3.770994333179612*^9}, {3.7709947381180363`*^9, 
   3.770994746114501*^9}, {3.77099489728544*^9, 3.770994903087699*^9}, {
   3.7709955146884212`*^9, 3.770995519188938*^9}, {3.7709955885900097`*^9, 
   3.770995603621776*^9}, {3.7709985161231823`*^9, 3.770998573504325*^9}, {
   3.770998636718886*^9, 3.77099866864684*^9}, {3.770999271890346*^9, 
   3.7709992748324633`*^9}, {3.77099932832793*^9, 3.770999435197094*^9}, {
   3.770999473700451*^9, 3.77099954163769*^9}, {3.7709996054438562`*^9, 
   3.77099970778405*^9}, {3.770999776833643*^9, 3.770999798197777*^9}, {
   3.7709998298969727`*^9, 3.7709999055790854`*^9}, {3.771000913605406*^9, 
   3.771000994531023*^9}, {3.771001058025551*^9, 3.771001085103985*^9}, {
   3.771001155512368*^9, 3.771001215445347*^9}, {3.771001257175239*^9, 
   3.771001295878345*^9}, {3.7710033329319677`*^9, 3.771003360971566*^9}, {
   3.77100354006137*^9, 3.7710036064113626`*^9}, {3.771003657619206*^9, 
   3.7710036944494877`*^9}, 3.771003727767627*^9, 3.771062394226145*^9, {
   3.771062571972788*^9, 3.7710625760835648`*^9}, {3.7710626284198513`*^9, 
   3.771062632297975*^9}, {3.771062770322917*^9, 3.771062781615706*^9}, {
   3.771062835425494*^9, 3.771062892468504*^9}, 3.7710629725583553`*^9, {
   3.771063096550644*^9, 3.77106312575948*^9}, {3.7710631628487053`*^9, 
   3.771063189685732*^9}, {3.771063374106915*^9, 3.7710634136717167`*^9}, {
   3.771063715324141*^9, 3.771063723856834*^9}, 3.7710637716993*^9, {
   3.7710663266989393`*^9, 3.7710663295535192`*^9}, {3.771066369739533*^9, 
   3.771066412961162*^9}, {3.771066589388928*^9, 3.771066591324184*^9}, {
   3.771066696018014*^9, 3.771066756432719*^9}, {3.771066818583774*^9, 
   3.771066819938601*^9}, {3.771067050293045*^9, 3.771067073807219*^9}, {
   3.77106721868401*^9, 3.771067235962707*^9}, {3.7710678738916483`*^9, 
   3.771067946032868*^9}, {3.771068096310753*^9, 3.771068170859066*^9}, {
   3.7710682057955303`*^9, 3.771068213657659*^9}, {3.771068243801957*^9, 
   3.77106833510456*^9}, {3.771068961022511*^9, 3.7710690398331823`*^9}, {
   3.7710690833632727`*^9, 3.771069083504656*^9}, {3.7710691353442497`*^9, 
   3.771069149303069*^9}, {3.771069198154456*^9, 3.771069232605229*^9}, {
   3.7710696182554483`*^9, 3.77106962241162*^9}, {3.771071024377389*^9, 
   3.7710711687241383`*^9}, {3.771071223269198*^9, 3.7710712555852633`*^9}, {
   3.771071297666704*^9, 3.7710712989299517`*^9}, {3.7710713301115828`*^9, 
   3.771071587457263*^9}, {3.77107162312395*^9, 3.771071624129236*^9}, {
   3.771071687296813*^9, 3.77107182861987*^9}, {3.7710718649574947`*^9, 
   3.7710718681068993`*^9}, {3.771218359146858*^9, 3.771218371633432*^9}, 
   3.771218633021106*^9, 3.771219750185355*^9, {3.771227804121016*^9, 
   3.771227805860454*^9}, {3.7712280867684526`*^9, 3.771228092370463*^9}, {
   3.771228492507588*^9, 3.77122849265583*^9}, {3.771229675233079*^9, 
   3.771229680331314*^9}, {3.771229885322709*^9, 3.7712299013359747`*^9}, {
   3.7712299416509113`*^9, 3.771229942983835*^9}, {3.7712304741539307`*^9, 
   3.7712305157645483`*^9}, {3.7712306706620092`*^9, 
   3.7712307683413067`*^9}, {3.771230847027277*^9, 3.771230906810211*^9}, {
   3.771230971727503*^9, 3.771230996070547*^9}, {3.77123104405582*^9, 
   3.7712310789673653`*^9}, {3.771231137938733*^9, 3.771231139371385*^9}, 
   3.771231185248641*^9, {3.7712313407334642`*^9, 3.771231351223959*^9}, {
   3.771231399192821*^9, 3.771231400594159*^9}, {3.771231438048242*^9, 
   3.771231449680297*^9}, {3.771231660158917*^9, 3.771231660235083*^9}, {
   3.77123171146215*^9, 3.7712317477201843`*^9}, {3.7712317866697483`*^9, 
   3.771231805928154*^9}, {3.771231857513937*^9, 3.771231922606146*^9}, {
   3.7712322109702272`*^9, 3.771232245011187*^9}, {3.77123232501055*^9, 
   3.7712323279219637`*^9}, {3.7712323608281937`*^9, 3.771232361010892*^9}, {
   3.771232396338902*^9, 3.771232424695243*^9}, {3.771236683796921*^9, 
   3.771236718438673*^9}, {3.771238579955537*^9, 3.77123858039727*^9}, {
   3.774163342992441*^9, 3.774163349465139*^9}, 3.774163732272812*^9, {
   3.774170626573571*^9, 3.774170635524674*^9}, {3.7741707477912607`*^9, 
   3.774170756370921*^9}, {3.774171154343649*^9, 3.774171174268244*^9}, {
   3.774171207282909*^9, 3.774171229698924*^9}, {3.774171280793515*^9, 
   3.7741713078089027`*^9}, {3.777883110942696*^9, 3.777883121513275*^9}, {
   3.777883300718519*^9, 3.777883303748021*^9}, {3.777883597200561*^9, 
   3.7778836198610353`*^9}, {3.7778841982352753`*^9, 3.777884240627591*^9}, {
   3.777884354490204*^9, 3.777884390100523*^9}, {3.777884496376441*^9, 
   3.777884550767989*^9}, {3.7778845886714563`*^9, 3.777884618561845*^9}, {
   3.777884741239046*^9, 3.7778847422165823`*^9}, {3.777884847900238*^9, 
   3.777884848695868*^9}, {3.777884881478932*^9, 3.777884893190099*^9}, {
   3.777884936268408*^9, 3.777884938034113*^9}, {3.7778849898832073`*^9, 
   3.777884992009694*^9}, {3.777886841769018*^9, 3.777886847035543*^9}, {
   3.777886938832423*^9, 3.777886938991823*^9}, {3.777886974197579*^9, 
   3.77788697454423*^9}, {3.777888208711817*^9, 3.777888209786521*^9}, {
   3.7778884873875313`*^9, 3.7778884879400873`*^9}, {3.778341547712955*^9, 
   3.7783416140779133`*^9}, {3.778342096135556*^9, 3.7783421122925663`*^9}, {
   3.7783423980957613`*^9, 3.778342436409171*^9}, 3.7783425371184177`*^9, 
   3.7783428037732286`*^9, {3.778343228103939*^9, 3.778343252000104*^9}, {
   3.778343855424313*^9, 3.778343874590789*^9}, {3.77834691848427*^9, 
   3.778346921962772*^9}, {3.77834703461736*^9, 3.778347056218598*^9}, {
   3.778347317730957*^9, 3.778347335275222*^9}, {3.778347463422864*^9, 
   3.778347572532193*^9}, {3.77834765722755*^9, 3.778347660842284*^9}, {
   3.778347746485642*^9, 3.778347755029956*^9}, {3.778347956245047*^9, 
   3.778347964018465*^9}, 3.7784846769299726`*^9, {3.779517206742679*^9, 
   3.779517247454179*^9}, {3.7795175246690474`*^9, 3.7795175559046183`*^9}, {
   3.779517586114908*^9, 3.7795175871998987`*^9}, {3.779517645545917*^9, 
   3.779517656862606*^9}, {3.779517811668775*^9, 3.7795178497309723`*^9}, 
   3.779526036951063*^9, {3.77952796708489*^9, 3.7795279763312407`*^9}, {
   3.779528344596788*^9, 3.779528346410655*^9}, {3.779528489755775*^9, 
   3.779528491208659*^9}, {3.7795285236167393`*^9, 3.779528526815249*^9}, {
   3.779528558298008*^9, 3.7795286018374643`*^9}, {3.779528800371364*^9, 
   3.7795288549048758`*^9}, {3.779528919376288*^9, 3.779529034125331*^9}, {
   3.7801170933815823`*^9, 3.7801171255234756`*^9}, {3.78161320625354*^9, 
   3.7816132784104643`*^9}, {3.781613466583273*^9, 3.781613474582327*^9}, {
   3.781613518662004*^9, 3.781613521863761*^9}, {3.781613740528426*^9, 
   3.7816137471257153`*^9}, {3.781613895330988*^9, 3.7816139316812687`*^9}, {
   3.781614096031432*^9, 3.78161415612395*^9}, 3.7816159785577297`*^9, {
   3.781616027676881*^9, 3.781616060487369*^9}, 3.781616096101468*^9, {
   3.7816161385105867`*^9, 3.781616162353176*^9}, {3.781616435909308*^9, 
   3.78161643626823*^9}, {3.781617040934772*^9, 3.781617069205027*^9}, {
   3.781617228538068*^9, 3.781617236672196*^9}, {3.78161727927229*^9, 
   3.781617292631782*^9}, {3.7816174735244093`*^9, 3.781617491058634*^9}, {
   3.781617527758053*^9, 3.781617566098106*^9}, {3.781617666985403*^9, 
   3.781617694464521*^9}, {3.781617747945244*^9, 3.781617798852406*^9}, {
   3.781617877981491*^9, 3.781617925018609*^9}, {3.781618166592342*^9, 
   3.781618166765592*^9}, {3.78161820857272*^9, 3.7816182108997583`*^9}, {
   3.781618346661129*^9, 3.781618360457876*^9}, {3.781618423314724*^9, 
   3.781618432911172*^9}, {3.781618541119955*^9, 3.781618575804497*^9}, {
   3.781618747961049*^9, 3.781618749711997*^9}, {3.781618849422463*^9, 
   3.781618892708911*^9}, {3.781619490567857*^9, 3.7816195224157763`*^9}, {
   3.7816197712209473`*^9, 3.78161978506593*^9}, {3.7816198457084*^9, 
   3.781619857176858*^9}, {3.781625278010277*^9, 3.781625278320633*^9}, {
   3.781625507076171*^9, 3.7816255135539083`*^9}, {3.781625669295478*^9, 
   3.781625682670639*^9}, {3.7816257643671703`*^9, 3.78162576471795*^9}, {
   3.7816258194699907`*^9, 3.781625878530567*^9}, {3.7816259136011744`*^9, 
   3.7816260848868437`*^9}, {3.781626326233399*^9, 3.781626333704397*^9}, {
   3.781626980439177*^9, 3.781627007036531*^9}, {3.781627113972267*^9, 
   3.781627154804058*^9}, {3.781627219665454*^9, 3.781627248855564*^9}, {
   3.781628075852029*^9, 3.781628075995063*^9}, {3.781628168145582*^9, 
   3.781628264007738*^9}, {3.781628457828092*^9, 3.781628527113945*^9}, {
   3.781628581808958*^9, 3.781628598640403*^9}, {3.781629271180827*^9, 
   3.781629277538378*^9}, 3.781629552681849*^9, 3.781630265952499*^9, {
   3.781630513131585*^9, 3.781630816343946*^9}, {3.781637794421029*^9, 
   3.781637799560951*^9}, {3.7816397465121393`*^9, 3.78163976192807*^9}, {
   3.781640974084455*^9, 3.781640976293817*^9}, {3.7816410135354967`*^9, 
   3.781641013718293*^9}, {3.7816411364758987`*^9, 3.781641191553282*^9}, {
   3.7816412292679377`*^9, 3.781641263383588*^9}, {3.781641329231557*^9, 
   3.781641407480527*^9}, {3.7816414736695557`*^9, 3.781641494356456*^9}, {
   3.781641665977538*^9, 3.781641775323806*^9}, {3.7816418499103003`*^9, 
   3.781641899700966*^9}, {3.781641933766172*^9, 3.781642020388858*^9}, {
   3.781642050782839*^9, 3.781642054363265*^9}, {3.78164251745315*^9, 
   3.7816425582402477`*^9}, {3.78164267991064*^9, 3.7816427406446466`*^9}, {
   3.7816428476543827`*^9, 3.781642877563442*^9}, {3.781642916602785*^9, 
   3.781642920353833*^9}, {3.781642977177203*^9, 3.781642983425953*^9}, {
   3.781643013848412*^9, 3.781643052783231*^9}, {3.78164318704478*^9, 
   3.781643219731113*^9}, {3.781643272051425*^9, 3.7816433006016893`*^9}, {
   3.781643334898526*^9, 3.78164336265945*^9}, {3.781643442740518*^9, 
   3.781643451844163*^9}, {3.7816435563877*^9, 3.7816435585687637`*^9}, {
   3.7816436149431553`*^9, 3.781643621143251*^9}, {3.7816436804139547`*^9, 
   3.781643706429069*^9}, {3.781643743317902*^9, 3.7816438016986732`*^9}, {
   3.78164387296428*^9, 3.781643893202812*^9}, {3.781643925212257*^9, 
   3.781643935090425*^9}, {3.781643980002695*^9, 3.781643980824354*^9}, {
   3.781684735387897*^9, 3.781684819903823*^9}, {3.781684876734529*^9, 
   3.781684878127458*^9}, {3.781685026220841*^9, 3.781685026346856*^9}, 
   3.781685837596628*^9, {3.7818586600248327`*^9, 3.781858698654344*^9}, {
   3.781970479428784*^9, 3.781970484385592*^9}, {3.7819705355792217`*^9, 
   3.7819705604817953`*^9}, {3.78197064168012*^9, 3.781970681374538*^9}, {
   3.781970827474432*^9, 3.781970842441272*^9}, {3.781970876577787*^9, 
   3.781970888529028*^9}, {3.781970921400443*^9, 3.781970922960889*^9}, {
   3.781971313856226*^9, 3.781971348884428*^9}, 3.781973267320959*^9, {
   3.781973703254539*^9, 3.7819737120300198`*^9}, {3.781973757511489*^9, 
   3.781973759420343*^9}, {3.781973861345709*^9, 3.78197387908136*^9}, {
   3.781974403127407*^9, 3.781974427431816*^9}, {3.781974693619644*^9, 
   3.7819747015123672`*^9}, {3.7819748007121973`*^9, 
   3.7819748021185293`*^9}, {3.781975016770525*^9, 3.781975053425517*^9}, {
   3.7819753436909113`*^9, 3.781975360712893*^9}, {3.7819754145529757`*^9, 
   3.7819754494211483`*^9}, {3.781975481328372*^9, 3.7819754824002047`*^9}, {
   3.7819755501415653`*^9, 3.7819755872747087`*^9}, {3.7819756407124987`*^9, 
   3.781975708991906*^9}, {3.78197574343906*^9, 3.781975746360037*^9}, {
   3.781975781934388*^9, 3.7819758380507174`*^9}, {3.781975908523636*^9, 
   3.781975946423642*^9}, {3.781976094639604*^9, 3.781976192465424*^9}, {
   3.781976298402731*^9, 3.781976311159066*^9}, {3.781976504781452*^9, 
   3.781976515809821*^9}, {3.781976551492639*^9, 3.7819766200321712`*^9}, {
   3.7819766626814957`*^9, 3.781976763756845*^9}, {3.781976798118968*^9, 
   3.7819767987484922`*^9}, {3.781976851045764*^9, 3.7819770452495193`*^9}, {
   3.7819770875915937`*^9, 3.78197709450902*^9}, {3.781977343242259*^9, 
   3.781977352551201*^9}, {3.7819775153986683`*^9, 3.781977530740782*^9}, {
   3.781977564973339*^9, 3.781977573613017*^9}, {3.78197768755695*^9, 
   3.7819776941169443`*^9}, {3.781978216329488*^9, 3.781978243885551*^9}, {
   3.781983043634603*^9, 3.781983062376174*^9}, {3.781983123876878*^9, 
   3.781983128904243*^9}, {3.781983220548943*^9, 3.781983236694174*^9}, {
   3.7819834188814163`*^9, 3.781983432538183*^9}, {3.7819835455932083`*^9, 
   3.781983545661634*^9}, {3.781983686372409*^9, 3.781983704587221*^9}, {
   3.781983762849457*^9, 3.7819837781295643`*^9}, {3.781983821008318*^9, 
   3.78198385551932*^9}, {3.781983895262005*^9, 3.78198390497884*^9}, {
   3.7819841503967333`*^9, 3.781984165499565*^9}, 3.781984242698344*^9, {
   3.7819842789530497`*^9, 3.781984279111786*^9}, {3.781984336959611*^9, 
   3.781984399729515*^9}, {3.781984517716167*^9, 3.781984527771372*^9}, {
   3.781984767737414*^9, 3.7819847792293167`*^9}, {3.781985508450797*^9, 
   3.7819855164880657`*^9}, {3.7819866804963017`*^9, 3.781986681576619*^9}, {
   3.782020606289318*^9, 3.7820206331435223`*^9}, {3.782020836806452*^9, 
   3.782020849458085*^9}, {3.782020983745294*^9, 3.782020983854931*^9}, {
   3.7820212678906403`*^9, 3.782021294257024*^9}, {3.782021329650251*^9, 
   3.78202133154151*^9}, {3.78202307822106*^9, 3.782023103458386*^9}, {
   3.7820234551894703`*^9, 3.7820234585371227`*^9}, {3.782023777791298*^9, 
   3.782023786260988*^9}, {3.7820253817016478`*^9, 3.782025383650928*^9}, 
   3.7820255471854687`*^9, 3.7820255859523373`*^9, {3.78202595944545*^9, 
   3.7820259762225237`*^9}, {3.782026155003845*^9, 3.7820261565214043`*^9}, {
   3.7820262807623777`*^9, 3.7820262809270267`*^9}, {3.782026501789748*^9, 
   3.782026517802761*^9}, {3.7820274957744493`*^9, 3.7820275343413277`*^9}, {
   3.782030134478948*^9, 3.782030142811864*^9}, {3.782034835007429*^9, 
   3.782034868548449*^9}, {3.782034903724308*^9, 3.782034927037004*^9}, {
   3.782035117844241*^9, 3.782035191248231*^9}, {3.782035246703274*^9, 
   3.782035254485135*^9}, {3.78203534310105*^9, 3.782035393256496*^9}, {
   3.782035430752219*^9, 3.7820355008637743`*^9}, {3.782035531168173*^9, 
   3.7820355391955442`*^9}, {3.782035572957782*^9, 3.782035588181326*^9}, {
   3.782035621490081*^9, 3.782035622157496*^9}, {3.782035658116057*^9, 
   3.7820356592597713`*^9}, 3.782035752108653*^9, {3.782036605747527*^9, 
   3.782036609700107*^9}, {3.782036650872085*^9, 3.7820366750627003`*^9}, {
   3.782036739938059*^9, 3.782036748220147*^9}, {3.7820368536072197`*^9, 
   3.782036910382469*^9}, {3.782036961408597*^9, 3.782036964044695*^9}, 
   3.7820369943271627`*^9, {3.782037102594823*^9, 3.782037312166492*^9}, {
   3.782037414354631*^9, 3.782037522984377*^9}, {3.782037900270732*^9, 
   3.782037909791239*^9}, {3.782037953216354*^9, 3.782037973174725*^9}, {
   3.7820380918057547`*^9, 3.782038191673614*^9}, 3.782038276033437*^9, {
   3.782038360101893*^9, 3.782038449443288*^9}, {3.782038481098366*^9, 
   3.7820385887878447`*^9}, {3.782038674366754*^9, 3.782038676101048*^9}, {
   3.782038866846766*^9, 3.782038879675267*^9}, {3.782039658796513*^9, 
   3.782039658953662*^9}, {3.7820399967957973`*^9, 3.782040022257876*^9}, {
   3.782040890193972*^9, 3.782040915526806*^9}, 3.782041806438738*^9, {
   3.782489132803646*^9, 3.782489138581966*^9}, {3.783763538227076*^9, 
   3.783763545309702*^9}, {3.783763727238998*^9, 3.7837637486463118`*^9}, {
   3.783763846990728*^9, 3.7837639973529463`*^9}, {3.783764027806872*^9, 
   3.783764164585115*^9}, {3.783787583535782*^9, 3.783787588853381*^9}, {
   3.783787710799172*^9, 3.783787711308346*^9}, {3.783787849426342*^9, 
   3.783787880169121*^9}, {3.7837879209771214`*^9, 3.7837879268709583`*^9}, {
   3.7837988126584253`*^9, 3.7837988168567133`*^9}, {3.7869680103110657`*^9, 
   3.786968011884375*^9}, {3.7870566359357862`*^9, 3.787056638333597*^9}, 
   3.787902487443215*^9, {3.7879035827870407`*^9, 3.787903613818424*^9}, {
   3.78790367329218*^9, 3.787903696103341*^9}, {3.7879039877148247`*^9, 
   3.787904066881048*^9}, {3.787906924247305*^9, 3.787906960126708*^9}, {
   3.7879071325107718`*^9, 3.78790713757917*^9}, {3.787907198035866*^9, 
   3.787907241874853*^9}, {3.787915826876635*^9, 3.787915845924526*^9}, {
   3.787915881740589*^9, 3.78791588221117*^9}, {3.787916055527948*^9, 
   3.787916067192184*^9}, {3.7879178373424397`*^9, 3.787917841109544*^9}, {
   3.787917871851177*^9, 3.78791789665902*^9}, 3.787918939616555*^9, {
   3.7879213712090187`*^9, 3.787921377010886*^9}, {3.787921409843429*^9, 
   3.787921444207378*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[1004]:=",
 CellID->12015175,ExpressionUUID->"b1aff5be-70f1-42a1-a21e-3ff8ecee6ef2"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[120518, 2842, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"c86a4a1f-28d5-4687-aca8-80753dd44ebd",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 294654, 6668}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1015, 20, 24, "History",ExpressionUUID->"7c0b8d73-847e-41c4-a007-a9c3d39cc812",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1598, 44, 123, 1, 29, "CategorizationSection",ExpressionUUID->"7ac9c7ab-8437-4641-b8e4-1d25fa417b9b",
 CellID->1122911449],
Cell[1724, 47, 134, 2, 70, "Categorization",ExpressionUUID->"05009cf1-4d5c-47b3-93a2-88d0c62d7a3d",
 CellID->686433507],
Cell[1861, 51, 133, 2, 70, "Categorization",ExpressionUUID->"66b1b861-a67f-4538-88f9-259e2fd83dc7",
 CellID->605800465],
Cell[1997, 55, 130, 2, 70, "Categorization",ExpressionUUID->"70415e6d-1e7e-4c3b-aa45-19b4100a664c",
 CellID->468444828],
Cell[2130, 59, 124, 1, 70, "Categorization",ExpressionUUID->"a5042b8c-a310-4584-bf7e-13bc33fb8d22"]
}, Closed]],
Cell[CellGroupData[{
Cell[2291, 65, 110, 1, 19, "KeywordsSection",ExpressionUUID->"54e79998-0abb-4b96-bc52-755777fbbb6a",
 CellID->477174294],
Cell[2404, 68, 100, 1, 70, "Keywords",ExpressionUUID->"75c766df-126b-4a9d-9143-f6075136d7e5",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2541, 74, 120, 1, 19, "TemplatesSection",ExpressionUUID->"c33b57b9-d6a0-4113-8ea8-4723a3c0242f",
 CellID->1872225408],
Cell[2664, 77, 149, 2, 70, "Template",ExpressionUUID->"64ed7564-911f-464a-9d53-23ec67e167c5",
 CellID->1562036412],
Cell[2816, 81, 137, 2, 70, "Template",ExpressionUUID->"5892aa57-8082-4959-bace-f0585cab2f61",
 CellID->158391909],
Cell[2956, 85, 136, 2, 70, "Template",ExpressionUUID->"2e4e12bd-0b71-4537-8e17-d83c7a7bc348",
 CellID->1360575930],
Cell[3095, 89, 137, 2, 70, "Template",ExpressionUUID->"e1235d68-10fd-4145-81bd-be9d00cdf744",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3269, 96, 108, 1, 19, "DetailsSection",ExpressionUUID->"5597601b-58ca-4f67-8c09-738973cf94af",
 CellID->307771771],
Cell[3380, 99, 118, 2, 70, "Details",ExpressionUUID->"ef7d0abc-f355-4169-af9d-47d5bdc3bb80",
 CellID->670882175],
Cell[3501, 103, 124, 2, 70, "Details",ExpressionUUID->"78be910f-634c-4f7b-89dd-15de1b5ebb51",
 CellID->350963985],
Cell[3628, 107, 119, 2, 70, "Details",ExpressionUUID->"8d86a2cb-7cf7-450a-9f69-1c9c85978783",
 CellID->8391405],
Cell[3750, 111, 124, 2, 70, "Details",ExpressionUUID->"577c1c96-52be-4ded-889c-f1e9766a6c18",
 CellID->3610269],
Cell[3877, 115, 116, 2, 70, "Details",ExpressionUUID->"45351c95-0e96-4e7a-9563-c54cebb14a14",
 CellID->401364205],
Cell[3996, 119, 116, 2, 70, "Details",ExpressionUUID->"00c9e3ee-75d7-46c8-a716-2c09b422db00",
 CellID->350204745],
Cell[4115, 123, 118, 2, 70, "Details",ExpressionUUID->"fc32a961-15d8-47f9-9d25-32a24a2d2101",
 CellID->732958810],
Cell[4236, 127, 133, 2, 70, "Details",ExpressionUUID->"017ddfc7-a8c0-4336-8f53-6f9587ede09a",
 CellID->222905350],
Cell[4372, 131, 122, 2, 70, "Details",ExpressionUUID->"5d9132d0-3fa1-449d-8c23-ac9122dd2934",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4531, 138, 112, 1, 63, "ObjectName",ExpressionUUID->"8d809462-b14f-4471-a044-c3afeee94f58",
 CellID->1224892054],
Cell[4646, 141, 1182, 29, 77, "Usage",ExpressionUUID->"b20ddc82-c753-40aa-a40d-11532ccf41f1",
 CellID->982511436],
Cell[5831, 172, 650, 14, 26, "Notes",ExpressionUUID->"e56c37d6-d3c0-47a1-a918-537358b15dac",
 CellID->924159584],
Cell[6484, 188, 1605, 44, 60, "Notes",ExpressionUUID->"f832c104-3048-4fd9-9e08-d9b3df391b8e",
 CellID->1990679746],
Cell[8092, 234, 3396, 83, 99, "2ColumnTableMod",ExpressionUUID->"009951d8-bcfb-4a8f-89f4-6861a973a57f",
 CellID->2028755750],
Cell[11491, 319, 1037, 23, 59, "Notes",ExpressionUUID->"2c9bb53f-71ac-4dc6-9f3c-379f01a1a14f",
 CellID->37393551],
Cell[12531, 344, 461, 10, 26, "Notes",ExpressionUUID->"e7237025-1796-4b6a-bf00-f61675f2c279",
 CellID->1605903337],
Cell[12995, 356, 595, 11, 41, "Notes",ExpressionUUID->"a0b4b499-e2e5-4f91-a5c7-eb695c756f23",
 CellID->178674951],
Cell[13593, 369, 458, 9, 25, "Notes",ExpressionUUID->"dbcb962a-879f-4ac7-a7b5-1fb41aa174e6",
 CellID->255599014],
Cell[14054, 380, 166, 2, 25, "Notes",ExpressionUUID->"dc49ee08-59fb-4339-a216-d82dd6deeaed",
 CellID->1067943069],
Cell[14223, 384, 5146, 100, 347, "3ColumnTableMod",ExpressionUUID->"b81779e7-f436-43b0-9d91-12f52943eceb",
 CellID->1917123225],
Cell[19372, 486, 426, 10, 25, "Notes",ExpressionUUID->"092b8794-2b6f-4d46-b898-9a29ff0e1301",
 CellID->956015342],
Cell[19801, 498, 2697, 47, 95, "3ColumnTableMod",ExpressionUUID->"59885100-5774-4214-a299-385b10e81cf8",
 CellID->1566765895],
Cell[22501, 547, 1811, 36, 142, "Notes",ExpressionUUID->"213cace6-0905-492e-891a-f6248a6f3e25",
 CellID->128330510],
Cell[24315, 585, 1005, 19, 58, "Notes",ExpressionUUID->"bba72225-cb61-40da-997a-5c82884f46f5",
 CellID->323180187],
Cell[25323, 606, 3007, 72, 115, "2ColumnTableMod",ExpressionUUID->"8080f1fb-5bc5-47b5-b585-0efd9aeb84b6",
 CellID->1854789889],
Cell[28333, 680, 425, 7, 41, "Notes",ExpressionUUID->"a3996063-70cf-4972-9391-6d714992932b",
 CellID->700200527],
Cell[28761, 689, 440, 10, 27, "Notes",ExpressionUUID->"e7a3e2f0-7259-4709-9adc-bce3a9dc8355",
 CellID->633941708],
Cell[29204, 701, 1400, 26, 97, "2ColumnTableMod",ExpressionUUID->"ecdd12b6-2bf0-4b4b-b677-f3735c561a26",
 CellID->837998243],
Cell[30607, 729, 697, 20, 44, "Notes",ExpressionUUID->"4f8c94ba-a19e-41d4-8e40-20044351c54c",
 CellID->1920663168],
Cell[31307, 751, 562, 15, 27, "Notes",ExpressionUUID->"cd2b36d9-4f5d-4eb1-a41f-c7d4268c580a",
 CellID->991443164]
}, Open  ]],
Cell[CellGroupData[{
Cell[31906, 771, 112, 1, 44, "TutorialsSection",ExpressionUUID->"1ae9a03b-e6e7-4361-a1f1-cdda1e960fe0",
 CellID->250839057],
Cell[32021, 774, 285, 4, 16, "Tutorials",ExpressionUUID->"e4dedb38-4066-4651-bf50-d416769e6965",
 CellID->131883350],
Cell[32309, 780, 100, 1, 16, "Tutorials",ExpressionUUID->"625c6ae4-72cf-4e8c-a4aa-981d87100398",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[32446, 786, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"b6694a15-c6c8-41d1-8d09-a1319070657e",
 CellID->1268215905],
Cell[32587, 789, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"0e644848-aa19-407e-900b-96367e692601",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[32737, 795, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"22fac52e-2aa4-44e9-9c13-7d36b9e99b81",
 CellID->1584193535],
Cell[32860, 798, 104, 1, 16, "RelatedLinks",ExpressionUUID->"65391dbb-264c-42aa-b546-048e6a49f414",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[33001, 804, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"34c294de-14a3-4b9c-a788-503d95e4f9c4",
 CellID->1255426704],
Cell[33114, 807, 3137, 78, 74, "SeeAlso",ExpressionUUID->"0fa78ba9-a363-42f0-847e-181c0823db7c",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[36288, 890, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"e24f6836-7567-4bd5-bba1-894bb76492eb",
 CellID->38303248],
Cell[36403, 893, 101, 1, 16, "MoreAbout",ExpressionUUID->"93dec88b-b763-4bf2-8b55-5ce5871c8147",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[36541, 899, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"e6f2b416-f9da-442b-83b5-d0ef55a0c67c",
 CellID->880084151],
Cell[36955, 912, 659, 15, 23, "ExampleText",ExpressionUUID->"ab977618-fe14-4944-a08d-11cd2500e1af",
 CellID->1912593623],
Cell[CellGroupData[{
Cell[37639, 931, 686, 14, 117, "Input",ExpressionUUID->"f45a4ab8-4eaf-42c5-80a7-ed3f414df7db",
 CellID->133271135],
Cell[38328, 947, 349, 5, 25, "Output",ExpressionUUID->"b2c69068-b370-4247-946a-619577ee910c",
 CellID->427796917]
}, Open  ]],
Cell[38692, 955, 468, 11, 25, "ExampleText",ExpressionUUID->"c69d7d5d-d81f-4cb6-bfb5-aaa704966436",
 CellID->404399049],
Cell[CellGroupData[{
Cell[39185, 970, 691, 13, 29, "Input",ExpressionUUID->"b0ab6847-fa05-479a-8b41-72b01060d74c",
 CellID->1617847216],
Cell[39879, 985, 3067, 89, 370, "Output",ExpressionUUID->"d93a3c8f-fcf4-4662-99fa-1adbbd7e1ff0",
 CellID->652463272]
}, Open  ]],
Cell[42961, 1077, 699, 18, 40, "ExampleText",ExpressionUUID->"5a02ce14-e7b5-410d-8bde-7a6f87c75bd0",
 CellID->1488703067],
Cell[CellGroupData[{
Cell[43685, 1099, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"cac21f49-f0d1-4d0e-bcb5-f3221262c9f6",
 CellID->1314178903],
Cell[CellGroupData[{
Cell[43953, 1108, 665, 14, 71, "Input",ExpressionUUID->"79ff87a6-e6ae-4ad4-868b-85c69308dc3b",
 CellID->1530433439],
Cell[44621, 1124, 3158, 85, 370, "Output",ExpressionUUID->"b4c1f91c-772d-4cb8-9ff6-26568cb12d2a",
 CellID->692547929]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47828, 1215, 241, 5, 17, "ExampleDelimiter",ExpressionUUID->"069508d1-802d-4b00-957e-fba999dd1def",
 CellID->80019424],
Cell[CellGroupData[{
Cell[48094, 1224, 1048, 25, 92, "Input",ExpressionUUID->"16663ad2-a378-4a6a-936d-4d762eeadd86",
 CellID->995987951],
Cell[49145, 1251, 4899, 112, 370, "Output",ExpressionUUID->"5a8960aa-fdec-4008-8290-871d6218c671",
 CellID->58076731]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54093, 1369, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"4921956e-8339-486c-9606-2bcd26144139",
 CellID->962783331],
Cell[54338, 1376, 453, 10, 37, "ExampleText",ExpressionUUID->"18d18e65-8364-4796-b8dc-803ff05d9882",
 CellID->1283129296],
Cell[CellGroupData[{
Cell[54816, 1390, 356, 7, 27, "Input",ExpressionUUID->"80e43724-e526-4196-bac8-6ed705d1e204",
 CellID->36276483],
Cell[55175, 1399, 570, 9, 26, "Output",ExpressionUUID->"bd57ce52-7e21-4ca9-a5e2-ebead134bfcd",
 CellID->561240086]
}, Open  ]],
Cell[CellGroupData[{
Cell[55782, 1413, 468, 10, 29, "Input",ExpressionUUID->"9c336720-b6f0-4434-8937-9e3b7926368f",
 CellID->1467962770],
Cell[56253, 1425, 1396, 35, 73, "Output",ExpressionUUID->"b5e50df5-2443-41db-9c2f-93ba482662c1",
 CellID->23188866]
}, Open  ]],
Cell[57664, 1463, 1239, 28, 39, "ExampleText",ExpressionUUID->"16579b57-6f79-468a-81a4-54ff6097f2c3",
 CellID->1308050109],
Cell[CellGroupData[{
Cell[58928, 1495, 1603, 33, 111, "Input",ExpressionUUID->"b23d8941-37d3-4b5b-835e-78a8e8472b34",
 CellID->1668268251],
Cell[60534, 1530, 6636, 142, 370, "Output",ExpressionUUID->"38dfff64-e577-4764-8b24-837fb86b0ad8",
 CellID->400886572]
}, Open  ]],
Cell[67185, 1675, 490, 8, 22, "ExampleText",ExpressionUUID->"ba49ab8c-e073-4afe-8e3d-7a6ae1d21720",
 CellID->29711224],
Cell[CellGroupData[{
Cell[67700, 1687, 1941, 40, 129, "Input",ExpressionUUID->"d4efcb1c-4139-404f-acae-14e243f600ed",
 CellID->873180837],
Cell[69644, 1729, 6891, 147, 370, "Output",ExpressionUUID->"7617ad0c-ffca-4576-9794-4b0ae24e3673",
 CellID->620935931]
}, Open  ]],
Cell[76550, 1879, 342, 7, 23, "ExampleText",ExpressionUUID->"998e53e8-0b82-40fa-b1f8-9d9700a33cdc",
 CellID->905425084],
Cell[CellGroupData[{
Cell[76917, 1890, 1892, 39, 129, "Input",ExpressionUUID->"1a5a43b1-2634-4cca-b151-ba48f18f1f22",
 CellID->1958277478],
Cell[78812, 1931, 6365, 138, 370, "Output",ExpressionUUID->"f2ca0ece-e748-4de1-b5cb-9b5c57c68039",
 CellID->1554713746]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[85226, 2075, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"bf716a5e-4ee8-49f9-b75e-25ccd5e64668",
 CellID->2052281161],
Cell[85472, 2082, 242, 4, 22, "ExampleText",ExpressionUUID->"ad203a14-b89a-4705-8ae8-c046d7237a7d",
 CellID->54428597],
Cell[CellGroupData[{
Cell[85739, 2090, 1639, 42, 188, "Input",ExpressionUUID->"0572381f-c9f9-4ffe-a717-97542dbb5bd7",
 CellID->1126111909],
Cell[87381, 2134, 9010, 182, 370, "Output",ExpressionUUID->"9a9536fc-80cc-4846-923e-728e3490a31e",
 CellID->1452117807]
}, Open  ]],
Cell[96406, 2319, 264, 5, 22, "ExampleText",ExpressionUUID->"b19ce777-1566-4aa7-a1d5-362678313ae2",
 CellID->1049835416],
Cell[CellGroupData[{
Cell[96695, 2328, 2596, 61, 300, "Input",ExpressionUUID->"d52e9193-3c9c-4ef1-a077-8b9ddd2288f7",
 CellID->402317813],
Cell[99294, 2391, 9035, 183, 370, "Output",ExpressionUUID->"6378047e-35ad-4660-ad90-7bf889060ea8",
 CellID->1950987225]
}, Open  ]],
Cell[108344, 2577, 327, 6, 22, "ExampleText",ExpressionUUID->"27b37186-deac-48a7-8fab-f052b9320939",
 CellID->1116149821],
Cell[CellGroupData[{
Cell[108696, 2587, 2709, 63, 300, "Input",ExpressionUUID->"7d1de571-884f-4e37-a57b-c5f80fb516c3",
 CellID->3218086],
Cell[111408, 2652, 9049, 183, 370, "Output",ExpressionUUID->"8392ac91-88d2-438e-b285-d35e33476d17",
 CellID->1466577922]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[120518, 2842, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"c86a4a1f-28d5-4687-aca8-80753dd44ebd",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[120676, 2846, 242, 5, 33, "ExampleSection",ExpressionUUID->"a91a0ede-4069-4269-844e-76f3cc71b7c5",
 CellID->1293636265],
Cell[120921, 2853, 265, 5, 21, "ExampleSection",ExpressionUUID->"b8010b5f-ffd1-47e8-a8af-3669d16c9317",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[121211, 2862, 244, 5, 21, "ExampleSection",ExpressionUUID->"8d64729b-2cdd-49a3-aa9d-dd4255180951",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[121480, 2871, 326, 6, 24, "ExampleSubsection",ExpressionUUID->"35f08a2c-188a-43bd-a141-9b6e0e2a3e73",
 CellID->1757724783],
Cell[121809, 2879, 792, 18, 40, "ExampleText",ExpressionUUID->"4bf6dc7c-f2a0-44b1-b2e2-e3745c0feeb9",
 CellID->1268678943],
Cell[CellGroupData[{
Cell[122626, 2901, 1581, 35, 174, "Input",ExpressionUUID->"cd35e5b5-d227-42cc-946f-e4f59de2fcaa",
 CellID->532886137],
Cell[124210, 2938, 6930, 177, 192, "Output",ExpressionUUID->"e3659b08-db3a-4c40-bf9b-ad705f47c0a1",
 CellID->1906452367]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[131189, 3121, 323, 6, 24, "ExampleSubsection",ExpressionUUID->"fccc618d-3ee9-46b2-9656-d95b5be6ea0c",
 CellID->166498975],
Cell[CellGroupData[{
Cell[131537, 3131, 1397, 32, 153, "Input",ExpressionUUID->"5c865a8b-4819-43d7-94bb-134556b771a3",
 CellID->1769743483],
Cell[132937, 3165, 11957, 304, 562, "Output",ExpressionUUID->"c489af85-a1ff-46e8-bf32-af716e920807",
 CellID->825016612]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[144943, 3475, 374, 7, 24, "ExampleSubsection",ExpressionUUID->"519cbd37-8b19-4b25-a8d4-2f9db366da84",
 CellID->1688597095],
Cell[145320, 3484, 1008, 25, 40, "ExampleText",ExpressionUUID->"6715f021-bdb5-4f79-a411-9a4bef75fe03",
 CellID->1376607065],
Cell[CellGroupData[{
Cell[146353, 3513, 1057, 25, 109, "Input",ExpressionUUID->"c44877d2-fce9-42e0-b9e3-3fa8c265438b",
 CellID->695241421],
Cell[147413, 3540, 3012, 81, 370, "Output",ExpressionUUID->"b7e888b8-20c0-4ec7-9dce-75486ca65a79",
 CellID->616539983]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[150474, 3627, 373, 7, 24, "ExampleSubsection",ExpressionUUID->"89ae5ce6-0333-4a15-9e65-92bd79871012",
 CellID->1020562723],
Cell[150850, 3636, 322, 5, 37, "ExampleText",ExpressionUUID->"db959aaa-401f-4714-84b4-c3e3572f1212",
 CellID->1678722922],
Cell[CellGroupData[{
Cell[151197, 3645, 1690, 37, 171, "Input",ExpressionUUID->"77834ea5-35ba-4a8a-9c16-5e3b98d7cfc8",
 CellID->425114609],
Cell[152890, 3684, 1989, 39, 461, "Output",ExpressionUUID->"eae3f080-d19e-4dad-ac49-e80a665ad970",
 CellID->1527939293]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[154928, 3729, 329, 6, 24, "ExampleSubsection",ExpressionUUID->"7f846b48-237e-44c7-ad00-66c8a433eed2",
 CellID->854869796],
Cell[155260, 3737, 302, 6, 22, "ExampleText",ExpressionUUID->"f840f5ea-1ebc-4f55-82e6-bfba3f4cbda4",
 CellID->268543758],
Cell[CellGroupData[{
Cell[155587, 3747, 707, 18, 86, "Input",ExpressionUUID->"085d651f-e9ed-4aa3-995a-ffebfb5c1f57",
 CellID->1212570482],
Cell[156297, 3767, 5067, 144, 192, "Output",ExpressionUUID->"0ad1a495-e6cb-4b84-89c9-281d0d3c9bd8",
 CellID->1246881296]
}, Open  ]],
Cell[161379, 3914, 848, 17, 54, "ExampleText",ExpressionUUID->"10aa59ca-87a7-4ef1-903c-8bb1170ae855",
 CellID->1233617734],
Cell[CellGroupData[{
Cell[162252, 3935, 1026, 24, 71, "Input",ExpressionUUID->"69777cb0-7554-47fd-8f32-44b0c20201d7",
 CellID->1852596485],
Cell[163281, 3961, 5484, 151, 192, "Output",ExpressionUUID->"e0a0841e-4418-4451-a2e6-64b6d1019968",
 CellID->865523087]
}, Open  ]],
Cell[168780, 4115, 608, 12, 38, "ExampleText",ExpressionUUID->"4e8731c8-d8cb-4d20-adde-3449011af864",
 CellID->971695640],
Cell[169391, 4129, 386, 10, 25, "ExampleText",ExpressionUUID->"c1947f31-f102-45dc-b695-8e921b68a566",
 CellID->1686906185],
Cell[169780, 4141, 454, 11, 48, "Input",ExpressionUUID->"4745db91-0cb3-4422-aea1-a6bf2acbf642",
 CellID->1428394713]
}, Open  ]],
Cell[CellGroupData[{
Cell[170271, 4157, 326, 6, 24, "ExampleSubsection",ExpressionUUID->"3f2b34af-6cb3-466a-8f2d-7984250fc9ba",
 CellID->1131062942],
Cell[170600, 4165, 303, 6, 22, "ExampleText",ExpressionUUID->"12d38c9f-4a69-46dc-a20d-cd9f7bf41bb2",
 CellID->1996927722],
Cell[CellGroupData[{
Cell[170928, 4175, 707, 18, 86, "Input",ExpressionUUID->"7dbad95a-1de6-43c5-ba26-fc320ed38ba1",
 CellID->1489788338],
Cell[171638, 4195, 4966, 142, 192, "Output",ExpressionUUID->"e7ca1553-67c1-4279-89dd-c5811e50d8ab",
 CellID->857379391]
}, Open  ]],
Cell[176619, 4340, 1105, 26, 55, "ExampleText",ExpressionUUID->"e79976ba-c669-473b-8010-b58a7d79ab0c",
 CellID->229062906],
Cell[CellGroupData[{
Cell[177749, 4370, 1182, 28, 108, "Input",ExpressionUUID->"322684ac-c0f3-4f9b-9159-0f4e3f8dfba2",
 CellID->88304206],
Cell[178934, 4400, 5495, 152, 192, "Output",ExpressionUUID->"c6511936-2da0-4eaf-a87a-f6904460530a",
 CellID->2104397333]
}, Open  ]],
Cell[184444, 4555, 386, 10, 25, "ExampleText",ExpressionUUID->"d87d7d6d-3647-417c-a803-09e5b64b05b8",
 CellID->1248683671],
Cell[184833, 4567, 454, 11, 48, "Input",ExpressionUUID->"975b5ec7-2ba6-42d8-aeee-4fa2332774ab",
 CellID->1416260013]
}, Open  ]],
Cell[185302, 4581, 247, 5, 24, "ExampleSubsection",ExpressionUUID->"28b0a5d5-1a16-4004-9bc9-ae7dee1e6705",
 CellID->1295379749]
}, Open  ]],
Cell[185564, 4589, 248, 5, 33, "ExampleSection",ExpressionUUID->"2ec43d35-91cb-4078-99b4-6f8f64b6f7e5",
 CellID->258228157],
Cell[185815, 4596, 259, 5, 21, "ExampleSection",ExpressionUUID->"e8a9d6c2-e23c-457d-b7e8-fd6c7c347263",
 CellID->2123667759],
Cell[186077, 4603, 252, 5, 21, "ExampleSection",ExpressionUUID->"20751a96-00b6-4b54-9ccd-a2a21e5c1895",
 CellID->1305812373],
Cell[186332, 4610, 257, 5, 21, "ExampleSection",ExpressionUUID->"a8a55be0-cf6e-4242-b3f0-d43af0338287",
 CellID->1653164318],
Cell[186592, 4617, 249, 5, 21, "ExampleSection",ExpressionUUID->"5e38c479-f11b-4e6e-84a2-ac40e3a23c7f",
 CellID->589267740],
Cell[CellGroupData[{
Cell[186866, 4626, 374, 8, 21, "ExampleSection",ExpressionUUID->"95089a49-bba0-407b-92f8-31f7cc3baf1a",
 CellID->422887447],
Cell[187243, 4636, 8554, 163, 767, "Input",ExpressionUUID->"1038879e-f7ed-41d9-942b-9ec37c223064",
 InitializationCell->False,
 CellID->931467115],
Cell[195800, 4801, 98428, 1849, 7333, "Input",ExpressionUUID->"b1aff5be-70f1-42a1-a21e-3ff8ecee6ef2",
 InitializationCell->False,
 CellID->12015175]
}, Closed]]
}, Open  ]]
}
]
*)

